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