MenuBar问题

xml_ug

我增加了一个菜单接钮:
theUI.MenuBarManager.AddMenuAction("ADD_DRAWING_TITLE", AddressOf ADD_DRAWING_TITLE)
1 A% e/ L4 k& r$ N
下面是打开对话框:
     Dim response As NXOpen.UIStyler.DialogResponse
9 ^( O$ s: Y- f5 ~5 e: P; E1 s        Dim status As NXOpen.MenuBar.MenuBarManager.CallbackStatus
2 Q' Z  D7 W+ o4 r0 i% E        status = NXOpen.MenuBar.MenuBarManager.CallbackStatus.Continue
           ufs.Ui.LockUGAccess(UFConstants.UF_UI_FROM_CUSTOM)
, K( b$ [1 q  S- `            OpenSetTitleDialog1(response) '打开对话框
            ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)

& b' C/ }5 n! K  B1 t, X问题是:打开对话框后,UG的菜单锁定的,我想要是不锁定的状态,如果我在对话框时加" ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)",达到我要的效果,但是退出时显示内部错误.有没有办法解决这个问题?