Ok I did as you said but then I get an error when I test it in a form

Run-time Error '398':

Client site not available

here is my code so far


Private Sub UserControl_Resize()

UserControl.Extender.Align = vbAlignBottom

STB.Move UserControl.ScaleLeft, UserControl.ScaleTop, _
UserControl.ScaleWidth, UserControl.ScaleHeight
PB.Move STB.Left + 20, STB.Top + 20, STB.Panels(1).Width, STB.Height

End Sub