p 2 data mahasiswa menggunakan keypress

Private Sub Cmdbatal_Click()Txtnpm = ""Txtnama = ""Txtalamat = ""Txtnpm.SetFocusEnd SubPrivate Sub Cmdkeluar_Click()Unload MeEnd SubPrivate Sub Cmdlagi_Click()Txtnpm = ""Txtnama = ""Txtalamat = ""Txtnpm.SetFocusEnd Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenTxtalamat.SetFocusEnd IfEnd SubPrivate Sub Txtnpm_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenTxtnama.SetFocusEnd IfEnd Sub