' API函数声明 Private Declare Function GetSystemMenu() Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _ ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu()Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _ ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Const MF_REMOVE = &H1000&Private Const SC_COLSE = &HF060Private Const SC_MAXIMIZE = &HF030Private Const SC_MINIMIZE = &HF020Private Sub Form_Load()Sub Form_Load() RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVEEnd Sub