ProgressBar Example
ProgressBar Example
Rate ProgressBar Example
(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
ProgressBar Example Comments
No comments yet — be the first to post one!
Post a Comment