, lIcon, bCheck, True
'                  End If
'               End If
'            Next i
'      End With
'    End If
End Sub

Private Sub ctlPopMenu_ItemHighlight(ItemNumber As Long, bEnabled As Boolean,
 bSeparator As Boolean)
'   If Not (bSeparator) Then
'      lblStatus.Caption = "Highlighted " &amp; ctlPopMenu.Caption(ItemNumber)
'   End If
End Sub

Private Sub ctlPopMenu_MenuExit()
   lblStatus.Caption = ""
End Sub

Private Sub ctlPopMenu_SystemMenuClick(ItemNumber As Long)
    If (ItemNumber = m_lAb