Source Code:
Private Sub Timer1_Timer()
Timer1.Enabled = True
ProgressBar1.Value = ProgressBar1.Value + 1
Label3.Caption = ProgressBar1.Value & "%"
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
End If
End Sub
Cool Music And Tricks
CoolMusicAndTricks