برای ساختن progress bar و ...Loading

البته خیلی مقدماتی طراحيش و شما زیبا ترشو درست کنید در ضمن اگه راههای دیگه برای ساخت این progress bar وجود داره اینجا بگید ;)
-------
برای این کار به ابزار زیر احتیاج داریم :

1- label1
2- timer1-timer2-timer3-timer4-timer5-timer6-timer7-timer8-timer9-timer10-timer11-timer12
3-Command1
4- bar1*
* در فرم استاندارد این شی در جعبه ابزار وجود ندارد برای آوردن آن بر روی جعبه ابزار راست کلیک کرده و از منوی ظاهر شده components را انتخاب میکنیم پنجره ای به همین نام باز میشود که دارای سه زبانه میباشد در زبانه controls می توانیم کنترل ها یا activex هایی رو به جعبه ابزار اضافه کرد در اینجا ما به کنترل Microsoft Windows common control احتیاج داریم آن را انتخاب میکنیم و با ok به جعبه ابزار اضافه میکنیم در این صورت شی ها یی به جعبه ابزار اضافه میشود که با آن ها آشنا هستیم (در برنامه های ویندوز کم و بیش با آن ها برخورد داشتیم) و شی progress bar را به فرم اضافه میکنیم .
-----------------------------------------------


سپس 12 شی timer د ر فرم قرار میدهیم

دستورات:

کد:

---

Private Sub Command1_Click()
bar1.Value = 1
Label1.Caption = "Loading"
Timer11.Enabled = True
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
bar1.Value = 2
Timer2.Enabled = True
End Sub

Private Sub Timer11_Timer()
Label1.Caption = "Loading."
Timer12.Enabled = True
End Sub

Private Sub Timer12_Timer()
Timer11.Enabled = False
Label1.Caption = "Loading.."
Timer13.Enabled = True
End Sub

Private Sub Timer13_Timer()
Timer12.Enabled = False
Label1.Caption = "Loading..."
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = False
bar1.Value = 3
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
Timer2.Enabled = False
bar1.Value = 4
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
Timer3.Enabled = False
bar1.Value = 5
Timer5.Enabled = True
End Sub

Private Sub Timer5_Timer()
Timer4.Enabled = False
bar1.Value = 6
Timer6.Enabled = True
End Sub

Private Sub Timer6_Timer()
bar1.Value = 7
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = True
End Sub


Private Sub Timer7_Timer()
Timer6.Enabled = False
bar1.Value = 8
Timer8.Enabled = True
End Sub

Private Sub Timer8_Timer()
Timer7.Enabled = False
bar1.Value = 9
Timer9.Enabled = True
End Sub

Private Sub Timer9_Timer()
Timer8.Enabled = False
bar1.Value = 10
Timer9.Enabled = False
End Sub

---