by Tyrel (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 10th September 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A simple loading bar
API Declarations
just
***Create a label named label1 and 20 timers named timer1....timer20**
Timer1.Enabled = False
Label1.Caption = "|| 1"
Timer2.Enabled = True
End Sub
Private Sub Timer10_Timer()
Timer10.Enabled = False
Label1.Caption = "|||||||||||10"
Timer11.Enabled = True
End Sub
Private Sub Timer11_Timer()
Timer11.Enabled = False
Label1.Caption = "|||||||||||11|"
Timer12.Enabled = True
End Sub
Private Sub Timer12_Timer()
Timer12.Enabled = False
Label1.Caption = "|||||||||||12||"
Timer13.Enabled = True
End Sub
Private Sub Timer13_Timer()
Timer13.Enabled = False
Label1.Caption = "|||||||||||13|||"
Timer14.Enabled = True
End Sub
Private Sub Timer14_Timer()
Timer14.Enabled = False
Label1.Caption = "|||||||||||14||||"
Timer15.Enabled = True
End Sub
Private Sub Timer15_Timer()
Timer15.Enabled = False
Label1.Caption = "|||||||||||15|||||"
Timer16.Enabled = True
End Sub
Private Sub Timer16_Timer()
Timer16.Enabled = False
Label1.Caption = "|||||||||||16||||||"
Timer17.Enabled = True
End Sub
Private Sub Timer17_Timer()
Timer17.Enabled = False
Label1.Caption = "|||||||||||17|||||||"
Timer18.Enabled = True
End Sub
Private Sub Timer18_Timer()
Timer18.Enabled = False
Label1.Caption = "|||||||||||18||||||||"
Timer19.Enabled = True
End Sub
Private Sub Timer19_Timer()
Timer19.Enabled = False
Label1.Caption = "|||||||||||19|||||||||"
Timer20.Enabled = True
End Sub
Private Sub Timer2_Timer()
Timer2.Enabled = False
Label1.Caption = "||| 2"
Timer3.Enabled = True
End Sub
Private Sub Timer20_Timer()
Timer20.Enabled = False
Label1.Caption = "|||||||||||20||||||||||"
Timer1.Enabled = True
End Sub
Private Sub Timer3_Timer()
Timer3.Enabled = False
Label1.Caption = "|||| 3"
Timer4.Enabled = True
End Sub
Private Sub Timer4_Timer()
Timer4.Enabled = False
Label1.Caption = "||||| 4"
Timer5.Enabled = True
End Sub
Private Sub Timer5_Timer()
Timer5.Enabled = False
Label1.Caption = "|||||| 5"
Timer6.Enabled = True
End Sub
Private Sub Timer6_Timer()
Timer6.Enabled = False
Label1.Caption = "||||||| 6"
Timer7.Enabled = True
End Sub
Private Sub Timer7_Timer()
Timer7.Enabled = False
Label1.Caption = "|||||||| 7"
Timer8.Enabled = True
End Sub
Private Sub Timer8_Timer()
Timer8.Enabled = False
Label1.Caption = "||||||||| 8"
Timer9.Enabled = True
End Sub
Private Sub Timer9_Timer()
Timer9.Enabled = False
Label1.Caption = "|||||||||| 9"
Timer10.Enabled = True
End Sub