Ko Ma BSI

Dim a As Integer

Dim b As Integer

Private Sub Command1_Click()

Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

MsgBox "Closing Program", 32, "Warning"

End

End Sub

Private Sub Command4_Click()

Text7.Text = Val(Text5.Text) * Val(Text6.Text)

End Sub

Private Sub Command5_Click()

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text4.SetFocus

End Sub

Private Sub Command6_Click()

x = MsgBox("Keluar Program", 32 + 1, "INfo")

If x = vbOK Then

End

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub