窗体的 MinButton、MaxButton 属性设为False , 或者设置 BorderStyle属性关闭按钮无效的代码:Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Const MF_REMOVE = ...