Add a ProgressBar without the Common Controls component

With this code you can add a ProgressBar to your application without having to use the Microsoft Windows Common Controls 5.0 or 6.0 component.

Add the module to your project. Then add a label to your form, name it lblProgBar and remove the caption.

vb Code:

Private Sub Form_Load()
    PBarLoad 1, Me.hWnd, lblProgBar.Left \ Screen.TwipsPerPixelX, lblProgBar.Top \ Screen.TwipsPerPixelY, lblProgBar.Width \ Screen.TwipsPerPixelX, lblProgBar.Height \ Screen.TwipsPerPixelY
    PBarSetRange 1, 0, 100
    PBarSetPos 1, 0
End Sub

All credits go to the author (no idea who it is).

Cool!

vb Code:

it is not working for me. Can you please help me.