|
Potresti fare così:
ProgressBar1.Min = 1
ProgressBar1.Max = 100000
For i = 1 To 100000
ProgressBar1.Value = i
Label1.Caption = i
Next
In sostanza devi impostare le proprietà Min e Max, dopo di che basta impostare la proprietà Value ad ogni iterazione.
ciao
|