VB_2014_SLIP 24

 

SLIP 24_1

Option Explicit

Private Sub Form_Click()

Timer1.Enabled = False

Form1.BackColor = vbWhite

End Sub

Private Sub Timer1_Timer()

Timer1.Enabled = True

ProgressBar1.Value = ProgressBar1.Value + 1

Form1.BackColor = RGB(Rnd * ProgressBar1.Value, Rnd * ProgressBar1.Value, Rnd * ProgressBar1.Value)

End Sub