Private Sub cmdbatal_Click()
textnpm = ""
textnama = ""
textalamat = ""
textnpm.SetFocus
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
textnpm = ""
textnama = ""
textalamat = ""
textnpm.SetFocus
End Sub
Private Sub cmdbatal_Click() textnama = "" textnik = "" textgolongan = "" textkode = "" texts...
Tidak ada komentar:
Posting Komentar