federico Golbert
28 de Enero del 2004

como se utilisa?

Baltasar
28 de Enero del 2004

Es muy fácil.
Pon un Progressbar largo en un formulario (ponle poca altura), le llamas PB1 y agraga este código:

Private Sub Form_Load()
PB1.Min = 0
PB1.Max = 60
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
PB1.Value = Second(Time)
End Sub

Las propiedades min y max establecen los límites de valores que admite el progressbar, y la propiedad Value le marca las casillas que ha de "iluminar". Y ya está.

Saludos