Tugas 2 data mahasiwa stmik pringsewu menggunakan keypress

Tugas 2

 

Private Sub BATAL_Click()

NPM = ""

NAMA = ""

ALAMAT = ""

NPM.SetFocus

End Sub

Private Sub KELUAR_Click()

Unload Me

End Sub

Private Sub LAGI_Click()

NPM = ""

NAMA = ""

ALAMAT = ""

NPM.SetFocus

End Sub

Private Sub NAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ALAMAT.SetFocus

End If

End Sub

Private Sub NPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

NAMA.SetFocus

End If

End Sub