我只会用RESIZE做
不过效果是先变大一下再回来
然后才。。。
有没有不用API的方法？

不是太明白你的意思..
怎样使窗体最大化的按钮无效
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const SC_CLOSE = &HF060&
Private Const MF_REMOVE = &H1000&

Private Sub Command1_Click()
Dim hMenu As Long
hMenu = GetSystemMenu(Form1.hwnd, 0)
If hMenu <> 0 Then
RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End If
End Sub

谢谢你了
这个我会
而且你发错了
呵呵
就是有人问我这个问题
我说不用API不能
再着确认一下

再次表示感谢

最后说一句
你发的是API的窗口关闭无效

设置form的属性

倒.我调试过了,可以的,
看错了.你将SC_Close 改为 SC_MAXIMIZE ...