求助：MDI窗体如何使右上角“关闭”按纽无效？

Question

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Long) As LongPublic Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As LongPublic Const MF_BYPOSITION = &H400&
Private Sub Form_Load()
Dim hSysMenu As Long'获取主窗体的系统菜单句柄
hSysMenu = GetSystemMenu(Me.hwnd, 0)
'移除系统菜单中的关闭和上面的分隔条
RemoveMenu hSysMenu, 6, MF_BYPOSITION
RemoveMenu hSysMenu, 5, MF_BYPOSITIONEnd Sub
如果要恢复：'恢复菜单
GetSystemMenu Me.hwnd, True