• Home
 · 
• Miscellaneous
 · 
• ProgressBar Example

ProgressBar Example

ProgressBar Example

Rate ProgressBar Example

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' 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