TUGAS 1.1 ( DATA MAHASISWA )

Private Sub NPM_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Nama.SetFocus

End If

End Sub

Private Sub Nama_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Alamat.SetFocus

End If

End Sub

Private Sub Lagi_Click()

NPM.SetFocus

NPM = ""

Nama = ""

Alamat= ""

End Sub

Private Sub Bersih_Click()

NPM.SetFocus

NPM = ""

Nama = ""

Alamat= ""

End Sub

Private Sub Keluar_Click()

End

End Sub