Put this on Paint event of the form:

Code:
Private Sub Form_Paint()
    Dim sngBorderWidth As Single
    
    'Determine Border Width - May need to be adjusted if a different border style is used
    sngBorderWidth = (Width - ScaleWidth) / 4

    ProgressBar1.Move StatusBar1.Panels(1).Left, StatusBar1.Top + sngBorderWidth, StatusBar1.Panels(1).Width, StatusBar1.Height - sngBorderWidth
End Sub
Just substitute the StatusBar1 and ProgressBar1 with the appropriate names.
Also, subsitute the Panel number to the appropriate one.

Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819