Cara Membuat Tulisan Berubah Warna di Visual Basic 6

Langkah Langkah :
- Buka Visual Basic'nya terlebih dahulu
- Pilih Standart EXE
- Buat Objek Dengan Ketentuan Sebagai Berikut :

1. Buat Label dan Ganti Caption'nya pada Jendela Properties dengan "M. IT COMMUNITY" (tanpa tanda petik).
2. Buat CommandButton dan Ganti juga Caption'nya menjadi "Mulai" (tanpa tanda petik).
3. Buat Timer dan ganti Interval'nya menjadi 200 dan pada properties Enabled ganti Ke False.

Buat Seperti Gambar Berikut :

Kemudian Double-Click pada Form dan isikan Kode Program dibawah ini :


Option Explicit

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Label1.BackStyle = 0
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Label1.ForeColor = QBColor(Rnd * 15)
    Me.BackColor = QBColor(Rnd * 5)
End Sub

Kemudian Klik Tombol Run / Tekan F5 dan tekan Tombol Mulai, Lihat apa yang terjadi ...

Selamat Mencoba ...
 

Posted in: Programming