program1

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

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = ""
txtnpm = ""
txtalamat = ""

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If

End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If

End Sub