17-10-12, 05:16 PM
كاتب الموضوع : AhmedEssawy
كود :
With ProgressBar1
.Minimum = 1
.Maximum = 100000
.Value = 1
.Step = 1
For i As Integer = .Minimum To .Maximum
' Perform one step of the action being tracked.
.PerformStep()
Next i
End With