کسی این کد رو در مورد پروسس بار داره لطفا کمک کنید

[rezapassword]

سلام به همه عزیزان
دوستان من یه کد واسه ویژوال میخوام که تو اون وقتی دکمه1 فشرده شد پروگرس بار (اون چوب خط پایین مورورگر اینترنت که پر میشه ) ظرف مدت 10 ثانیه پر بشه و با کلیک روی دکمه 2 ظرف مدت 10 ثانیه خالی بشه خواهشا من همه جارو دنبال این کد گشتم فقط عزیزان برای من فایل اپلود نکنید که ویژوالم اصلا بازش نمیکنه لطفا خودتون تایپ کنید

[lucky_0020]

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
ProgressBar1.Value = 0
Timer2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
If (ProgressBar1.Value < 100) Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
If (ProgressBar1.Value > 0) Then
ProgressBar1.Value = ProgressBar1.Value - 1
Else
Timer2.Enabled = False
End If
End Sub

امیدوارم منظور شما رو درست گرفته باشم.
موفق باشید.

[lucky_0020]

فراموش کردم بگم ،اگر زمان دقیق 10 ثانیه مدنظر هست به جای Timer باید از توابع API استفاده کنید.
چون دقت تایمر اصلا خیلی پائین هست و برای زمان بندیهای خیلی دقیق بکار نمی رود.