perkalian dua bilangan

Untitled

Private Sub Command1_Click()
TxtC.Text = Val(TxtA.Text) * Val(TxtB.Text)
End Sub

Private Sub Command2_Click()
TxtA.SetFocus
TxtA = “”
TxtB = “”
TxtC = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub TxtA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtB.SetFocus
End If
End Sub

Iklan