Option Compare Database
Public bAdmin As Boolean
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public 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
Const SW_HIDE = 0 'Hide the window.
Const SW_MAXIMIZE = 3 'Maximize the window.
Const SW_MINIMIZE = 6 'Minimize the window.
Const SW_RESTORE = 9 'Restore the window (not maximized nor minimized).
Const SW_SHOW = 5 'Show the window.
Const SW_SHOWMAXIMIZED = 3 'Show the window maximized.
Const SW_SHOWMINIMIZED = 2 'Show the window minimized.
Const SW_SHOWMINNOACTIVE = 7 'Show the window minimized but do not activate it.
Const SW_SHOWNA = 8 'Show the window in its current state but do not activate it.
Const SW_SHOWNOACTIVATE = 4 'Show the window in its most recent size and position but do not activate it.
Const SW_SHOWNORMAL = 1 'Show the window and activate it (as usual).
Public Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Olivier
Herbaut
