怎样用代码隐藏、最大化、最小化ACCESS的主窗口

Private Declare Function apiShowWindow Lib "user32" _
　　Alias "ShowWindow" (ByVal hwnd As Long, _
　　　　　ByVal nCmdShow As Long) As Long

Function fSetACCESSWindow(nCmdShow As Long)
' 使用举例
' 最大化 ACCESS 窗口
'　　　 ?fSetACCESSWindow(SW_SHOWMAXIMIZED)
' 最小化 ACCESS 窗口
'　　　 ?fSetACCESSWindow(SW_SHOWMINIMIZED)
' 隐藏 ACCESS 窗口
'　　　 ?fSetACCESSWindow(SW_HIDE)
' 正常显示 ACCESS 窗口
'　　　 ?fSetACCESSWindow(SW_SHOWNORMAL)
'
Dim loX　As Long
Dim loFORM As FORM
　　On Error Resume Next
　　Set loFORM=Screen.ActiveFORM
　　If Err <> 0 Then ' 没有活动窗体 no ActiveFORM
　　　If nCmdShow=SW_HIDE Then
　　　　MsgBox "除非屏幕上有一个窗口，否则不能隐藏 ACCESS 主窗口!" _
　　　　　　　　　　& vbcr & VBcr　_
　　　　　　　　　　& "Cannot hide ACCESS unless " _
　　　　　　　　　　& "a FORM is on screen"
　　　Else
　　　　loX=apiShowWindow(hWndACCESSApp, nCmdShow)
　　　　Err.Clear
　　　End If
　　Else
　　　　If nCmdShow=SW_SHOWMINIMIZED And loFORM.Modal=True Then
　　　　　　MsgBox "不能由屏幕上的 " & (loFORM.Caption + " ")　& "窗体最小化 ACCESS 主窗口!" _
　　　　　　　　　　& vbcr & VBcr　_
　　　　　　　　　　& "Cannot minimize ACCESS with " _
　　　　　　　　　　& (loFORM.Caption + " ") _
　　　　　　　　　　& "FORM on screen"
　　　　ElseIf nCmdShow=SW_HIDE And loFORM.PopUp <> True Then
　　　　　　MsgBox "不能由屏幕上的 " & (loFORM.Caption + " ")　& "窗体隐藏 ACCESS 主窗口!" _
　　　　　　　　　　& vbcr & VBcr　_
　　　　　　　　　　& "Cannot hide ACCESS with " _
　　　　　　　　　　& (loFORM.Caption + " ") _
　　　　　　　　　　& "FORM on screen"
　　　　Else
　　　　　　loX=apiShowWindow(hWndACCESSApp, nCmdShow)
　　　　End If
　　End If
　　fSetACCESSWindow=(loX <> 0)
End Function

'************ 代码结束 **********