Tugas2_2

Private Sub cmdbatal_Click()
Textnpm = ” ”
Textnama = ” ”
Textalamat = ” ”
Textnpm.SetFocus

End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
Textnpm = ” ”
Textnama = ” ”
Textalamat = ” ”
Textnpm.SetFocus

End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textalamat.SetFocus
End If
End Sub

Private Sub Textnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnama.SetFocus
End If
End Sub