in.AddPanel eStyle, sText, , iImg, iMinWIdth, (i = 1), , , "Item" &amp; i
   Next i
   sbrMain.PanelIcon("Item3") = 1
   sbrMain.PanelToolTipText("Item3") = "Test Tool Tip"
End Sub

Private Sub Form_Resize()
On Error Resume Next
   lblLogoBack.Width = Me.ScaleWidth - lblLogoBack.Left * 2
   lblSimple.Move lblLogoBack.Left + Screen.TwipsPerPixelX, lblSimple.Top,
    lblLogoBack.Width - 2 * Screen.TwipsPerPixelX
   lblLogoStripe.Width = lblLogoBack.Width - lblLogoStripe.Left -
    Screen.TwipsPerPixelX * 2
  