如何屏蔽窗体的自带关闭功能？

chenghai

我编的一个主控窗体，希望打开后只能用窗体里自编的按钮进行关闭（同时退出数据库），而不能窗口右上角的X键进行关闭。
在窗体设计属性中进行设置后，右上角的X键变灰了，但在windows下方的状态栏里对该窗体进行鼠标右键的操作，又可以直接关闭了。怎么能够屏蔽？？？

Trynew

用Api函数，在启动窗体里加入：
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long

Const WS_SYSMENU = &H80000
Const GWL_STYLE = (-16)

Private Sub Form_Load()
    Dim lWnd As Long
    lWnd = GetWindowLong(hWndAccessApp, GWL_STYLE)
    lWnd = lWnd And Not (WS_SYSMENU)
    lWnd = SetWindowLong(hWndAccessApp, GWL_STYLE, lWnd)
End Sub