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 Form_Load()

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