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