Tugas 1.2

Private Sub cmdbersih_Click()
Txtn1.SetFocus
Txtn1 = ""
Txtn2 = ""
Txtn3 = ""
End Sub

Private Sub Cmdhitung_Click()
Txtn3 = Val(Txtn1) * Val(Txtn2)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Txtn1_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Txtn2.SetFocus
End If
End Sub

Private Sub Txtn2_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Txtn3.SetFocus
End If
End Sub