Event filters on menus

How can i set filters on menu items?I am trying to set a filter on a menu item using the code below, but it is not working

Dim oFilters As SAPbouiCOM.EventFilters

Dim oFilter As SAPbouiCOM.EventFilter

Set oFilters = New SAPbouiCOM.EventFilters

Set oFilter = oFilters.Add(et_MENU_CLICK)

oFilter.Add 3329 (Menu item for "Choose Company" under "Administration")

Thanks.