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

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

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

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

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