tugas 1.3

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 = Val(txtn1) * Val(txtn2)
End If

End Sub