隱藏Access窗口

Global Const SW _ HIDE = 0
Global Const SW _ show normal = 1
Global Const SW _ show minimized = 2
Global Const SW _ show maximized = 3

將函數show window Lib“user 32”(ByVal hwnd爲Long，ByVal nCmdShow爲Long)聲明爲Long

函數access window(ncmdshow as long)
'使用示例
'來制作access window
'？fsccesswindow(SW _ show maximized)
'最小化訪問窗口
'？fsccesswindow(SW _ show minimized)
'隱藏訪問窗口
'？FsetaAccess Window(SW _ hide)
'正常顯示訪問窗口
'？fSetaccessWindow(SW _ show normal)
'
Dim loX Long
Dim loForm As Form
On Error Resume Next
loX = show window(hWndaccessApp，nCmdShow)
Err。clear
fSetaccessWindow =(loX 0)
End函數