data mahasiswa menggunakan keypress

Private Sub cmdbatal_Click()
txtnpm = ""
txtnama = ""
txtalamat = ""
txtnpm.SetFocus
End Sub


Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_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