private Sub Cmdbatal_Click()Txtnpm = ""Txtnama = ""Txtalamat = ""Txtnpm.SetFocusEnd Subprivate Sub Cmdkeluar_Click()Unload MeEnd SubPrivate Sub Cmdlagi_Click()Txtnpm = ""Txtnama = ""Txtalamat = ""Txtnpm.SetFocusEnd Sub
Tidak ada komentar:
Posting Komentar