[RaggiTech]

كاتب الموضوع : AhmedEssawy

كود :

' ----------------------------------------
' Required Imports :
'
' Microsoft.VisualBasic
' System.Windows.Forms
' ----------------------------------------

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