STITS"
      .AddFromFile sFile &amp; "My Options.ico", IMAGE_ICON, "OPTIONS"
   End With
End Sub


Private Sub barMain_ItemClick(ByVal lIndex As Long)
   lblSelected.Caption = barMain.ItemCaption(lIndex)
   picBanner.Cls
   m_cImlSMall.DrawImage _
      barMain.ItemIcon(lIndex) + 1, _
      picBanner.hdc, _
      4, (picBanner.ScaleHeight \ Screen.TwipsPerPixelY -
       m_cImlSMall.IconSizeY) \ 2
   picBanner.Refresh
End Sub

Private Sub barMain_ItemRightClick(ByVal lIndex As Long, x As Single, y As
 Sing