PERKALIAN DUA BILANGAN

Private Sub Command1_Click()
TXT3.Text = Val(TXT1.Text) * Val(TXT2.Text)
End Sub

Private Sub Command2_Click()
TXT1.SetFocus
TXT1 = “”
TXT2 = “”
TXT3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub TXT1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXT2.SetFocus
End If
End Sub