by Brent Embrey (9 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 28th December 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
ProgressBar Example
' set the progress bar align property to 2
' set the timer interval to 500
' set the timer enabled property to false
' set the label caption to 0
-----------------------------------------------------------------------------
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1 = Label1 + 1
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
MsgBox "Complete", , "Count To 10"
ProgressBar1.Value = 0
Label1 = 0
End If
End Sub