将菜单分割为多列显示

hSubMenu ＝ GetSubMenu (GetMenu (取窗口句柄 ()), 0)
mnuItemCount ＝ GetMenuItemCount (hSubMenu)
mInfo.cbSize ＝ GlobalSize (mInfo)
mInfo.fMask ＝ #MIIM_TYPE
mInfo.fType ＝ #MFT_STRING
mInfo.dwTypeData ＝ 取空白文本 (256)
mInfo.cch ＝ 取文本长度 (mInfo.dwTypeData)
r ＝ GetMenuItemInfo (hSubMenu, mnuItemCount － 1, 真, mInfo)
mInfo.fType ＝ #RGB_STARTNEWCOLUMNWITHVERTBAR
mInfo.fMask ＝ #MIIM_TYPE
r ＝ SetMenuItemInfo (hSubMenu, mnuItemCount － 1, 真, mInfo)
.如果真 (r ≠ 0)
信息框 (“成功啦！”, 0, )