كود استخدام البروجرس بار


كود:

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