Visual Basic 6 | Progress Bar

' ProgressBar Method
Private Sub Timer1_Timer()
ProgressBar1.Value = Value + 1
Label1.Caption = ProgressBar1.Value & "%"
End Sub

' Shape Method
Private Sub Timer1_Timer()
ProgressBar1.Value = Value + 1
Shape1.Width = Shape1.Width + 1
Label1.Caption = ProgressBar1.Value & "%"
End Sub