g

   ' Show the popup menu and get the item the user clicks:
   lIndex = m_cMenu.ShowPopupMenu(btnAnimate.left, btnAnimate.tOp,
    btnAnimate.left, btnAnimate.tOp, Me.ScaleWidth - btnAnimate.left -
    btnAnimate.Width, btnAnimate.tOp + btnAnimate.Height, False)
   If (lIndex &gt; 0) Then
      ' The web menu works, but not much else :)!
      If (m_cMenu.ItemData(lIndex) = mcWEBSITE) Then
         ShellEx m_cMenu.ItemKey(lIndex)
      Else
         Select Case m_cMenu.ItemKey(lIndex)
         Case "New"
