Tugas 1 visual basis

Private sub NPM_keyprees (keyascii As Integer)
If keyascii = 13 then
NAMA.Set focus
End IF
End Sub

Private sub NAMA_keyprees
If keyascii = 13 then
ALAMAT.Set focus
End If
End sub

Private sub LAGI_Click <>
NPM.Set focus
NPM = " "
NAMA= " "
ALAMAT = " "
End Sub

Private Sub BATAL_Click <>
NPM.Set focus
NPM = " "
NAMA = " "
ALAMAT = " "
End sub

Private Sub KELUAR_Click <>
End
End sub