Visual Basic 6 Tutorial: On making a progress bar out of label
I didn't like the color of the progress bar in window common control 6 so i thought of this version of a progress bar.
note:
This can also work on textboxes, images, the form itself, etc...
Start Up Properties:
Timer1 Interval = 1
label1 width = 100
label1 caption = empty
label2 caption = empty
Code:
Private Sub Timer1_Timer()
Label1.Width = Label1.Width + 100
Label2.Caption = (Label1.Width * 100) / 5100 & "%"
If Label1.Width = 5100 Then
Timer1.Enabled = False
End If
End Sub
