 the extra control.
   picSideBar.Height = lHeight * Screen.TwipsPerPixelY
   ' Draw a gradient into it.  Here I stole the code directly from the
   ' SideLogo/Fonts at any angle project for simplicity:
   Dim c As New cLogo
   With c
      .DrawingObject = picSideBar
      .StartColor = &amp;H3399&amp;
      .EndColor = &amp;H0&amp;
      .Caption = "vbAccelerator"
      ilsIcons16.ListImages(1).Draw 0, 0, 0
      .hImageList = ilsIcons16.hImageList
      .IconIndex = 42
      .Draw
   End With
   
End Sub