Private Sub cmdhitung_Click()
texttotal = Val(textn1) + Val(textn2)
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
textn1 = ""
textn2 = ""
texttotal = ""
textn1.SetFocus
End Sub
Langganan:
Posting Komentar (Atom)
Tugas 3_7
Private Sub cmdbatal_Click() textnama = "" textnik = "" textgolongan = "" textkode = "" texts...
-
Private Sub cmdbatal_Click() textnama = "" textnik = "" textgolongan = "" textkode = "" texts... -
Private Sub cmdbatal_Click() textcode = "" textjudul = "" textpengarang = "" textterbit = "" ... -
Private Sub cmdbatal_Click() textnama = "" textnpm = "" textjurusan = "" textps = "" textmasuk ...
Tidak ada komentar:
Posting Komentar