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) '<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>系统<a href="https://www.jb51.cc/tag/caidan/" target="_blank" class="keywords">菜单</a>句柄 Call DeleteMenu(hMenu,6,MF_BYPOSITION) '去掉 "<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>" <a href="https://www.jb51.cc/tag/caidan/" target="_blank" class="keywords">菜单</a>命令 Call DeleteMenu(hMenu,5,MF_BYPOSITION) '去掉 "<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>" 上面的分割符 End Sub