Add a ProgressBar without the Common Controls component

[Chris001]

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.

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).

[Edgemeal]

Cool!

[record]

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