Option Compare Database

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

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

Public Function Hidde_On()
Dim HWND_TOPMOST, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, - 30 , - 30 ,  0 ,  0 , SWP_SHOWWINDOW
End Function

Public Function hidde_off()
Dim HWND_TOPMOST, SWP_NOACTIVATE, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST,  0 ,  0 ,  1200 ,  1200 , SWP_SHOWWINDOW
'  0 ,  0 ,  1200 ,  1200 , SWP_SHOWWINDOW
End Function


Public Function xxx()
   Shell "c:\x.bat"
End Function