راهنمايي در مورد نحوه استفاده از Progress bar

[orange]

با سلام
دوستان يه مشكل برام پيش اومده كه خواهش مي كنم كمكم كنيد. لطفا براي استفاده از Progress bar يك مثال بزنيد براي مثال با كليك بر روي يك Command Button يك Progress bar در مدت سي ثانيه صد در صد پر شود.
با تشكر

[Blue Rose]

سلام
یه کامند باتن یه تایمر و یه Progress bar به فرمت اضافه کن
و این کد رو بده


Option Explicit

Private Sub cmdPerformTask_Click()
' Don't let the user click this till we
' are done with this task.
cmdPerformTask.Enabled = False
MousePointer = vbHourglass

' Start the progress bar at zero.
pbTaskProgress.Value = pbTaskProgress.Min
pbTaskProgress.Visible = True

' Enable the timer to start the long task.
tmrTaskTimer.Enabled = True
End Sub

Private Sub Form_Load()
cmdPerformTask.Caption = "Perform Task"

pbTaskProgress.Visible = False
pbTaskProgress.Align = vbAlignBottom
pbTaskProgress.Min = 0
pbTaskProgress.Max = 100

tmrTaskTimer.Interval = 100
tmrTaskTimer.Enabled = False
End Sub

Private Sub tmrTaskTimer_Timer()
' Increase the ProgressBar's value.
pbTaskProgress.Value = _
pbTaskProgress.Value + 10

' If we're done, reenable the button.
If pbTaskProgress.Value >= pbTaskProgress.Max _
Then
pbTaskProgress.Visible = True
cmdPerformTask.Enabled = True
tmrTaskTimer.Enabled = False
MousePointer = vbDefault
End If
End Sub

[orange]

سلام
Blue Rose جان از لطفت ممنونم