Data mahasiswa menggunakan keypress

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