Private Sub ProgressBar1_Changed(ByVal nPercentage As Long)
  ' darf's ein bisschen bunt sein?
  If nPercentage < 50 Then
    ProgressBar1.FillColor = &H38D535
    ProgressBar1.FillColorLight = &HACEDAB
  ElseIf nPercentage < 80 Then
    ProgressBar1.FillColor = RGB(255, 255, 64)
    ProgressBar1.FillColorLight = RGB(255, 255, 128)
  Else
    ProgressBar1.FillColor = &H80FF&
    ProgressBar1.FillColorLight = &H40C0&
  End If
End Sub
 
Private Sub Timer1_Timer()
  Dim Value As Integer
  Value = Int(Rnd * 100)
 ProgressBar1.Value = 0
  ProgressBar1.Value = Value
 
End Sub

___________________________________________________________________

[u]http://www.su.am