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
               menu.SetItemState "Minfrm", MIS_ENABLED
               OnDeskfrm.Visible = True
               OnDeskfrm.WindowState = 0
               menu.SetItemState "open", MIS_DISABLED  '禁用打开菜单
               menu.SetItemState "Minfrm", MIS_ENABLED   '最小化菜单恢复状态

    End Select
End Sub

有人帮我解决一下吗?感激! --------------------编程问答-------------------- 不好意思上面多了个"menu.SetItemState   "Minfrm",   MIS_ENABLED" --------------------编程问答-------------------- 有点难度哦 --------------------编程问答-------------------- 关注接分

补充：VB ,  API