TUGAS 1 PROGRAM 1 BP 1

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