Private Sub Cmd1_Click()

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End Sub

Private Sub Cmd3_Click()

End

End Sub

Private Sub Cmd2_Click()

Txtgp = “”

Txttj = “”

Txtpt = “”

Txtgk = “”

txtpj = “”

Txtgd = “”

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttj.SetFocus

End If

End Sub

Private Sub Txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End If

End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpt.SetFocus

End If

End Sub

Private Sub Checkbold_Click()

If Checkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

Private Sub Checkitalic_Click()

If Checkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

Private Sub Checkstrikethru_Click()

If Checkstrikethru.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

Private Sub Checkunderline_Click()

If Checkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Opt1red_Click()

Lbltext.ForeColor = vbRed

End Sub

Private Sub Opt2green_Click()

Lbltext.ForeColor = vbGreen

End Sub

Private Sub Opt3blue_Click()

Lbltext.ForeColor = vbBlue

End Sub

Private Sub Opt4yellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

Private Sub Chkgb_Click()

If Chkgb.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

Private Sub Chkgt_Click()

If Chkgt.Value = 1 Then

Label2.FontStrikethru = True

Else

Label2.FontStrikethru = False

End If

End Sub

Private Sub Chkmiring_Click()

If Chkmiring.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Chktebal_Click()

If Chktebal.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Cmd1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Cmd2_Click()

End

End Sub

Private Sub Optbiru_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Optkuning_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Optmerah_Click()

Label2.ForeColor = vbRed

End Sub