VB窗体FORM隐藏关闭按钮

Option Explicit Private Const MF_BYPOSITION = &H400& Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Sub Form_Load() Dim hMenu As Long hMenu = GetSystemMenu(hWnd, False) '获取系统菜单句柄 Call DeleteMenu(hMenu, 6, MF_BYPOSITION) '去掉 "关闭" 菜单命令 Call DeleteMenu(hMenu, 5, MF_BYPOSITION) '去掉 "关闭" 上面的分割符 End Sub