在这里给出两种方法:

1.

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 MF_REMOVE = &H1000&

Private Const SC_COLSE = &HF060

Private Sub Form_Load()

    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE

End Sub

这种方法直接移除“关闭”选项，右上角的“关闭”会变成灰色

2.这个简单

Private Sub Form_Unload(Cancel As Integer)

  Cancel = -1

End Sub

这个方法就不说了,点击"关闭"没反应...