怎样把表单的右上角的关闭按纽禁用？我做个系统，不想让用户通过右上角的关闭按纽关闭系统。
或者当用户点右上角的关闭按纽时，就会出我设计的关闭提示也可以。反正就是不想让用户误点。

将其属性enabled设为false

maxbutton和minbutton的属性里有enabled设为false ，但是关闭没有啊。你再帮帮我吧。

可以把borderstyle设为none，所有按钮就都隐藏了

QueryUnload里把代码加上不就行了吗？？？

你大可不必禁用关闭按钮，可以在窗体的 QueryUnload 代码中输入:
Cancel = True
Beep                  '发出提示音
这样用户点击关闭按钮就不会关闭窗体了。

声明

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal brevert As Long) As Long

Public Declare Function RemoveMenu Lib "user32" (ByVal hwnd As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Const MF_REMOVE = &H1000&

Public Const SC_CLOSE = &HF060 Private Sub Form_Load()

RemoveMenu GetSystemMenu(hwnd, 0), SC_CLOSE, MF_REM End Sub

楼上的你给的代码用了函数可是我不懂这个你能说出它功能实现效果吗？