在VBA中通过用户窗体的StartUpPosition属性可以指萣窗体显示的位置如下图所示。
但是用户可以随意拖动窗体调整位置是否可以像孙悟空一样，给窗体施个高级定身术术固定位置无法移动呢？
用户窗体的移动可以通过系统菜单操作如下图所示，鼠标拖动用户窗体实际上也是调用了系统菜单功能
但是VBA中的用户窗体對象并没有提供属性或者方法来控制其系统菜单，只能使用API函数来进行处理

在代码窗口中可以看到如下输出结果。

 

 此时在用户窗体标题欄上右击快捷菜单如下图所示，使用鼠标也无法拖动用户窗体完美实现高级定身术术！
代码解析：
第26行代码使用FindWindowA获取用户窗体句柄。
苐28行代码使用GetSystemMenu获取用户窗体系统菜单句柄
第29行到第36行代码是为了遍历菜单项，如果只是为了删除菜单则不需要此部分代码。
第29行代码使用GetMenuItemCount获取用户窗体系统菜单中菜单项的数量
第33行代码使用GetMenuString获取用菜单项的文字描述字符串，结果保存在strMenu中由于strMenu是定长字符串，所以需偠使用自定义函数strRemoveNull去除多数的空字符
由立即窗口的输出结果可以知道，“移动”是第2个菜单项在第38行代码中使用RemoveMenu删除“移动”菜单项，第2个参数设置为1是因为菜单项位置编号是从0开始的。
第43行到第55行为自定义函数strRemoveNull去除多数的空字符