Private Sub Command1_Click()
Text1 = ""
If Check1.Value = 1 Then Text1 = Text1 + " Apel"
If Check2.Value = 1 Then Text1 = Text1 + " Nanas"
If Check3.Value = 1 Then Text1 = Text1 + " Jeruk"
End Sub
Langganan:
Posting Komentar (Atom)
Total Pengunjung
My Sister
Pajangan
Entri Baru
-
Private Sub CmdAtas_Click() Timer1.Tag = "atas" End Sub Private Sub CmdBawah_Click() Timer1.Tag = "bawah" End Sub Privat... -
Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) End Sub Private Sub Command2_Click() Text3 = Text1 - Text2 End Sub Private Sub ... -
Private Sub Command1_Click() If Option1.Value = True Then Text1 = "Indonesia" If Option2.Value = True Then Text1 = "Malaysia&... -
Private Sub Command1_Click() Text1 = "" If Check1.Value = 1 Then Text1 = Text1 + " Apel" If Check2.Value = 1 Then Text1 ... -
Baik program ini menggunakan fasilitas pencarian yang sangat bagus, simpel dan cepat, silahkan dicoba dan semoga bermanfaat bagi anda, hokey... -
Private Sub CmdMasuk_Click() List1.AddItem Text1 Text1 = "" Text1.SetFocus End Sub Private Sub CmdKosong_Click() List1.Clear End S... -
One Piece Episode 487 Bahasa Indonesia. Download
-
Opera 11.01 Download
0 komentar:
Posting Komentar