TUGAS BAHASA PEMROGRAMAN 1.2

Private Sub cmdlagi_Click()
txtnpm = “”
txtnama = “”
txtalamat = “”
txtnpm.SetFocus
End Sub

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

Private Sub cmdkeluar_Click()
Unload Me
End Sub

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

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