隱藏Access窗口

Global Const SW_HIDE = 0
    Global Const SW_SHOWNORMAL = 1
    Global Const SW_SHOWMINIMIZED = 2
    Global Const SW_SHOWMAXIMIZED = 3
    Declare Function ShowWindow Lib "user32" (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
    loX = ShowWindow(hWndaccessApp, nCmdShow)
    Err.Clear
    fSetaccessWindow = (loX <> 0)
    End Function