Simple loading bar

[Xzotic]

Code:

Dim i As Integer

Private Sub Form_Load()
     i = 0
     Timer1.Enabled = True
     Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
     ProgressBar1.Value = i / 50 * 100
     i = i + 1
     If i > 50 Then
        Timer1.Enabled = False
    Unload Me
Form1.Show
     End If
End Sub

Taken from:

http://www.vbforums.com/showthread.php?t=421073

All credits go to their creators.


Does anyone else have a better code?

I would like to use it.

All you need is a timer. And in the Timer you go progressbar1.increment(1)

And the increment(?) is by how much it goes up and how fast it goes..

Then all you have to do is enable the timer when you want the progress bar to go.