Private Sub Combersih_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txthasil = “”
End Sub
Private Sub Comkeluar_Click()
End
End Sub
Private Sub Command1_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txthasil = “”
End Sub
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub
Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthasil = Val(Txt1.Text) * Val(Txt2.Text)
Combersih.SetFocus
End If
End Sub