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) 

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