How to Save The Planet?

Cape Town – Climate change is not about the struggle to save the planet, it's about saving the human race.
click this link News24

 

Komentar

Posting Komentar

Postingan populer dari blog ini

Contoh Database Kontak Telepon di Visual Basic 6.0 (Part 2)

Gambar
Private Sub CmdTambah_Click() If TxtNama.Text = "" Then     MsgBox "Nama belum di isi!", vbCritical, "Peringatan!" ElseIf TxtAlamat.Text = "" Then     MsgBox "Alamat belum di isi!", vbCritical, "Peringatan!" ElseIf TxtNo.Text = "" Then     MsgBox "Nomor Telepon belum di isi!", vbCritical, "Peringatan!" ElseIf MsgBox("Apakah anda ingin menambahkan kontak?", vbYesNo, "") = vbYes Then     FormUtama.Adodc1.Recordset.AddNew     FormUtama.Adodc1.Recordset!Nama = TxtNama.Text     FormUtama.Adodc1.Recordset!Alamat = TxtAlamat.Text     FormUtama.Adodc1.Recordset!NoTelp = TxtNo.Text     MsgBox "Kontak Berhasil di Simpan", vbInformation, "Kontak Tertambah"     Bersih Else     End If End Sub Private Sub CmdKembali_Click() Unload Me End Sub Sub Bersih() TxtNama.Text = "" TxtAlamat.Text = "" TxtNo.Text = "" End Sub Private Sub CmdKe
Baca selengkapnya