Membuat Random Background Warna Form Visual Basic 6

Dalam postingan kali ini IMANIAWAN.NET akan membagikan cara bagaimana membuat background pada form visual basic (vb 6) menjadi berubah warna-warni. Jadi nanti seperti random (acak) sistemnya. Okey langsung saja, lihat caranya di bawah ini:

1. Desain form seperti di bawah ini:

2. Masukan komponen Timer sebanyak 2 buah dan Label sebanyak 1 buah

3. Ubah properties name pad aform => formimaniawan

4. Ubah properties interval pada kedua Timer => 100

5. Isikan coding di bawah ini (perhatikan nama komponennya)

Private Sub Form_Load()

Timer2.Enabled = True

Randomize

formimaniawan.BackColor = Rnd(&H80000009)

End Sub

Private Sub Timer1_Timer()

formimaniawan.Visible = True

formimaniawan.Enabled = True

formimaniawan.BackColor = QBColor(Rnd * 1)

formimaniawan.BackColor = QBColor(Rnd + 2)

formimaniawan.BackColor = QBColor(Rnd + 3)

formimaniawan.BackColor = QBColor(Rnd + 4)

formimaniawan.BackColor = QBColor(Rnd + 5)

formimaniawan.BackColor = QBColor(Rnd + 6)

formimaniawan.BackColor = QBColor(Rnd + 7)

End Sub

Private Sub Timer2_Timer()

formimaniawan.Visible = True

formimaniawan.BackColor = QBColor(Rnd * 8)

End Sub

Semoga Bermanfaat