Use SetParent to make the progressbar a child of the statusbar then
position it as needed. If you're displaying it within a panel you'll
probably want to get rid of the border too.

Private Sub Form_Load()
    'turn off border...
    SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, _
        (GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) _
        And (Not WS_EX_STATICEDGE))
    're-parent...
    SetParent ProgressBar1.hwnd, StatusBar1.hwnd
    ProgressBar1.Move 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetParent ProgressBar1.hwnd, Me.hwnd
End Sub

-Tom
(please post replies to the newsgroup)

Hi,
How do you add a progressbar to status bar. I want to display a progressbar
in the status bar showing the amount of work done.

Please Help

Purav