Advertisement
Nadds

Visual Basic 6 | Progress Bar

Sep 12th, 2016
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. ' ProgressBar Method
  2. Private Sub Timer1_Timer()
  3. ProgressBar1.Value = Value + 1
  4. Label1.Caption = ProgressBar1.Value & "%"
  5. End Sub
  6.  
  7. ' Shape Method
  8. Private Sub Timer1_Timer()
  9. ProgressBar1.Value = Value + 1
  10. Shape1.Width = Shape1.Width + 1
  11. Label1.Caption = ProgressBar1.Value & "%"
  12. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement