vb 个性化菜单使用的问题

不知道大家有没有有用过
'*   版权:   LPP软件工作室
'*   作者:   卢培培(goodname008)
'*   (*******   复制请保留以上信息   *******)
的菜单

现在我出现了个难题

在设置菜单的   menu.SetItemState   "Minfrm",   MIS_DISABLED,   的时候,再设置成menu.SetItemState   "Minfrm",   MIS_ENABLED,单击事件无法获取.
代码如下:
Private   Sub   MenuItemSelected(ByVal   itemID   As   Long)
      Select   Case   MyItemInfo(itemID).itemAlias
                Case   "Minfrm"       '最小化菜单单击事件
                                OnDeskfrm.WindowState   =   1
                                OnDeskfrm.Visible   =   False
                                OnDeskfrm.Hide
                                menu.SetItemState   "Minfrm",   MIS_DISABLED   '禁用最小化菜单
                                menu.SetItemState   "open",   MIS_ENABLED     '打开菜单恢复状态

                Case   "open"       '打开菜单单击事件
                OnDeskfrm.Show

                              OnDeskfrm.Visible   =   True
                              OnDeskfrm.WindowState   =   0
                              menu.SetItemState   "open",   MIS_DISABLED     '禁用打开菜单
                              menu.SetItemState   "Minfrm",   MIS_ENABLED       '最小化菜单恢复状态

        End   Select
End   Sub

有人帮我解决一下吗?感激! --------------------编程问答-------------------- dd

补充：VB ,  基础类