PROGRAM 2 DATA MAHASISWA MENGGUNAKAN ENTER

PROGRAM 2

Private Sub Cmdbatal_Click()

Txtnpm = ""

txtnama = ""

txtalamat = ""

Txtnpm.SetFocus 

End Sub

Private Sub Cmdlagi_Click()

Txtnpm = ""

txtnama = ""

txtalamat = ""

txtnama.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

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