program 2
Private Sub cmdhitung_Click()
txtn3 = Val(txtn1) + Val(txtn2)
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtn1.SetFocus
txtn1 = ""
txtn2 = ""
txtn3 = ""
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
Komentar
Posting Komentar