TUGAS 2

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



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

Private Sub cmdkluar_Click()
Unload Me
End Sub

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