Private Sub BATAL_Click()
TXTNPM = ""
TXTNAMA = ""
TXTALAMAT = ""
TXTNPM.SetFocus
End Sub
Private Sub KELUAR_Click()
Unload Me
End Sub
Private Sub LAGI_Click()
TXTNPM = ""
TXTNAMA = ""
TXTALAMAT = ""
TXTNPM.SetFocus
End Sub
Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTALAMAT.SetFocus
End If
End Sub
Private Sub TXTNPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNAMA.SetFocus
End If
End Sub
Komentar
Posting Komentar