如何调用API函数来屏蔽窗体上的还原按钮？ 

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long  Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long  Private Const MF_BYCOMMAND = &H0&  Private Const SC_MAXIMIZE = &HF030  Private Const SC_RESTORE = &HF120 Private Const SC_SIZE = &HF000 Private Const SC_MOVE = &HF010 Private Const SC_MINIMIZE = &HF020 Private Const SC_CLOSE = &HF060   '以上代码放在声明段      Dim hMenu As Long, Success As Long  hMenu = GetSystemMenu(Application.hWndAccessApp, 0)  '禁止还原按钮 Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)  '禁止改变大小 Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)  '禁止最大化 Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)  '禁止最小化 Success = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)  '禁止关闭 Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)  '禁止移动 Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)

如果要用 API 函数去实现上述操作应该使用 SENDMESSAGE 函数

Public Const WM_SYSCOMMAND = &H112 Public Const SC_CLOSE = &HF060& '关闭窗体 Public Const SC_MINIMIZE = &HF020& '最小化窗体 Public Const SC_MAXIMIZE = &HF030& '最大化窗体 Public Const SC_RESTORE = &HF120& '恢复窗体大小 Public Const WM_SETTEXT = &HC '设置窗体的Caption Public Const WM_GETTEXT = &HD '取得窗体的caption Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '以上放入声明段 Private Sub Command_Click(Index As Integer)     Dim S As String     S = String(80, Chr(0))     Select Case Index         Case 0             SendMessage Application.hWndAccessApp, WM_GETTEXT, Len(S), ByVal S '读出窗体的Caption             '在用户自己的窗体中加一个文本框，用于操作ACCESS主窗体标题             Text1.Text = Left(S, InStr(S, Chr(0)) - 1)         Case 1             '因为Text1.text属于Variant类型，所以一定先要用CStr把它转换成字符串             SendMessage Application.hWndAccessApp, WM_SETTEXT, 0, ByVal CStr(Text1.Text)    '设置窗体的Caption         Case 2             SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_MAXIMIZE, ByVal 0&'使窗体最大化         Case 3             SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0&'使窗体最小化         Case 4             SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_RESTORE, ByVal 0&'使窗体恢复原来的大小         Case 5             SendMessage Application.hWndAccessApp, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&'关闭窗体         End Select End Sub