come si puo visualizzare 1 barra di avanzamento?

[progxx]

Ciao a tutti
Vorrei mettere sul mio form 1 barra di avanzamento.
Ovviamente sono andato in "CoMPONENTI" e ho scelto la voce "MICROSOFT WINDOS COMMON CONTROL 6.0" che mi installe le icone x usufruire della barra.
ma ora nasce il problema
Qual ' è il codice?
ho anche messo il codice di progressbar.value nella routine timer
credendo che x ogni secondo avanzasse un blocco, ma nulla da fare.
Potete aiutarmi?
Non devo installare nulla con questa barra o eggere file dal pc vorrei solo capire come posso fare avanzare la barra in TOT secondi
Grazie mille

[xegallo]

Private Sub Form_Load()
   Timer1.Interval = 1000
   ProgressBar1.Min = 0
   ProgressBar1.Max = 100
End Sub

Private Sub Timer1_Timer()
   Static value As Integer
   If value < 100 Then
      value = value + 1
   Else
      value = 0
   End If
   Label1.Caption = value
   Label1.Refresh
   ProgressBar1.value = value
   ProgressBar1.Refresh
End Sub