= picSideBar.Width \ Screen.TwipsPerPixelX
   BitBlt hDC, lLeft, lTop, lW, lBottom - lTop, picSideBar.hDC, 0, lTop,
    vbSrcCopy
   lLeft = lLeft + lW + 1
   bDoDefault = True
End Sub

Private Sub m_cMenu_ItemHighlight(ItemNumber As Long, bEnabled As Boolean,
 bSeparator As Boolean)
   ' Show the user what's been highlighted.  In a real application you
   ' would want to make these captions more descriptive:
   If (m_cMenu.ItemData(ItemNumber) = mcWEBSITE) Then
      lblInfo.Caption = "Visit " &amp; m_cMen