17-10-12, 05:18 PM
كاتب الموضوع : 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