Data Mahasiswa STMIK dengan keypress

Private Sub cmdbatal_Click()
textnpm = ""
textnama = ""
textalamat = ""
textnpm.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
textnpm = ""
textnama = ""
textalamat = ""
textnpm.SetFocus
End Sub

Private Sub textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textalamat.SetFocus
End If
End Sub

Private Sub textnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textnama.SetFocus
End If
End Sub