Barra dei progressi

[Pinco Pallino 2]

Grazie! Ora ho finalmente capito come si usa un timer!
Ecco che mi son inventato! Funziona alla grande!!
CIAOOO!!

Private Sub Form_Load()
barretta.Value = 0
End Sub
Private Sub Timer1_Timer()
If barretta.Value < 100 Then
barretta.Value = barretta.Value + 10
Else
barretta.Value = 100
End If
End Sub