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
0 komentar:
Posting Komentar