界面右上角的那个关闭的按钮禁用。点击它不能关闭怎么写代码?

在Closing事件中加入e.cancel=True

'我用e.Cancel = True了.但是我不用窗体的时候想关掉则用  Me.Close()也关不掉了呢。为什么啊.

IF MSGBOX("关闭吗?",vb...) =.. then
...
'关闭窗口
else
'不关闭
e.cancel=true
end if

呵呵，楼上的比较会投机取巧呀。
如果me.close关不掉。
就用application.exit强制关了。

Public Class Form1
 
    Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
    Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Integer) As Integer
    Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Integer) As Integer
    Private Const MF_BYPOSITION = &H400&
    Private Const MF_DISABLED = &H2&
    Private Sub disableX(ByVal wnd As Form)
        Dim hMenu As Integer, nCount As Integer
        hMenu = GetSystemMenu(wnd.Handle.ToInt32, 0)
        nCount = GetMenuItemCount(hMenu)
        Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION Or MF_DISABLED)
        DrawMenuBar(Me.Handle.ToInt32)
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        disableX(Me)
    End Sub