ong, ByVal wParam As Long, ByVal lParam As Long)
 As Long
Private Const WM_SYSCOMMAND = &amp;H112
Private Const SC_CLOSE = &amp;HF060

' The popup menu object:
Private WithEvents m_cMenu As cPopupMenu
Attribute m_cMenu.VB_VarHelpID = -1

' This constant is used as an item data to identify web site menu items
' on the pop-up menu.  The "Key" property of the menu items is then used to
' hold the URL to go to:
Private Const mcWEBSITE As Long = -&amp;H8000&amp;


Private Sub btnAnimate_Click()
Dim lIndex As Lon