Progress Bar using text box

'ProgressBar1 CODE

Private Sub Timer1_Timer()

If Not Text2.Width > Text1.Width Then

  Text2.Width = Text2.Width + 10

Else

  Exit Sub

End If

End Sub

'End of ProgressBar1 CODE