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
No comments:
Post a Comment
Note: only a member of this blog may post a comment.