Private Sub TextNpm_keypress(keyascii As Integer)
If keyascii = 13 Then
TextNama.SetFocus
End If
End Sub
Private Sub TextNama_keypress(keyascii As Integer)
If keyascii = 13 Then
TextAlamat.SetFocus
End If
End Sub
Private Sub TextAlamat_keypress(keyascii As Integer)
If keyascii = 13 Then
TextAgama.SetFocus
End If
End Sub
Private Sub TextAgama_keypress(keyascii As Integer)
If keyascii = 13 Then
TextJenisKelamin.SetFocus
End If
End Sub
Private Sub TextJenisKelamin_keypress(keyascii As Integer)
If keyascii = 13 Then
TextJenisKelamin.SetFocus
End If
End Sub
Private Sub CmdLagi_Click()
TextNpm.SetFocus
TextNpm = ""
TextNama = ""
TextAlamat = ""
TextAgama = ""
TextJenisKelamin = ""
End Sub
Private Sub CmdBatal_Click()
TextNpm.SetFocus
TextNpm = ""
TextNama = ""
TextAlamat = ""
TextAgama = ""
TextJenisKelamin = ""
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Tidak ada komentar:
Posting Komentar