Agus cii alex

Kata siapa Tuhan tidak adil Kata siapa Tuhan tidak ada mereka itu semua bohong dan tak tahu kekuasaan Tuhan Bukti bahwa Tuhan itu adil dan ada adalah keindahan dan kesempurnaan ciptaannya seperti dirimu sayang. Aku ingin terbang bersamamu, dan menikmati indahnya dunia. Aku ingin selamanya bersamamu, hingga berakhirnya waktu. Happy Valentine sayangku. Kutuliskan namamu di langit, angin meniupnya. Kutuliskan namamu di laut, badai membawanya. Kutuliskan namamu di hatiku, cinta namanya. Tuhan memberikan rasa cinta dalam diriku, dan aku memberikannya padamu.  Please yach , jangan diberikan lagi pada orang lain. Ada sesuatu yang indah dalam dirimu, sesuatu yang membuatku selalu mermimpi untuk memilikimu. Happy Valentine ya Saat melihatmu, aku takut menyentuhmu. Saat menyentuhmu, aku takut menciummu. Saat menciummu, aku takut mencintaimu. Saat mencintaimu, aku takut kehilanganmu. Ada 12 bulan dalam setahun, 30 hari dalam sebulan, 7 hari dalam seminggu, 60 detik dalam satu jam. Tapi hanya ada

Hai sahabat Blogger.. pada kesempatan ini saya akan Share Cara membuat kalkulator cinta dengan Vb 6.0, oke langsung saja : 1. Pertama Buka Visual Basic 6.0. 2. Pada New Projeck pilih Standard EXE lalu klik Open. 3. Masukkan 2 buah Label , 2 buah TextBox dan 3 buah Command Button . Atur seperti gambar di bawah ini : 4.  Ubah Propertiesnya sebagai berikut :        •    Ubah Caption Label1 menjadi Nama Cowok / Nama Pria        •    Ubah Caption Label2 menjadi Nama Cewek/ Nama Wanita        •    Kosongkan tulisan Text1 dan Text2        •    Caption Command1 diubah menjadi Hitung        •    Caption Command2 diubah menjadi Keluar    Caption Command3 diubah menjadi Hapus 5. Berikut ini tampilan Form yang sudah diubah Captionnya: 6.  Masukkan Listing/ Kode di bawah ini ke jendela kode: Private Sub Command1_Click() Dim sBuffer As String Dim sBuffer2 As String Dim nCowokLen As Integer Dim nCewekLen As Integer Dim nCtr As Integer Dim nCtr2 As Integer Dim nTo