Anyone knows why I cannot get this to work:
(http://www.mvps.org/access/api/api0019.htm)

I get an error saying : cannot hide Access unless a form is on screen_
-----------------------------------
     Manipulate Access Window
    Author(s)
     Dev Ashish

     (Q)    How do I maximize or minimize the main Access Window from code?

     (A)    Pass one of the declared constants to the function
fSetAccessWindow.

       This same function can also be used to completely hide Access window
and just show your form on the desktop.  Make the form popup and from it's
Open Event, call the fSetAccessWindow function with SW_HIDE as the argument.

       Warning:    If you're hiding the main Access window,  make sure your
error handlers are good.  Because with the window hidden, if an error is
raised, pressing "End" on the Error window will NOT make Access window
visible and you will be left with just the form open.   A recommended method
is to make a call to fSetAccessWindow with SW_SHOWNORMAL from your error
handlers.
           If,  for some reason, the Access window does not show itself,
then you can always close the mdb from the Task List, available in Win 95
with Control-Alt-Delete (once) and under NT, by right clicking on the
Taskbar and selecting Task Manager, by selecting the mdb and clicking End
Task.

'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

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

Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
'       ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'       ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'       ?fSetAccessWindow(SW_HIDE)
'Normal window:
'       ?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 "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 "Cannot minimize Access with " _
                   & (loForm.Caption + " ") _
                   & "form on screen"
       ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
           MsgBox "Cannot hide Access with " _
                   & (loForm.Caption + " ") _
                   & "form on screen"
       Else
           loX = apiShowWindow(hWndAccessApp, nCmdShow)
       End If
   End If
   fSetAccessWindow = (loX <> 0)
End Function

'************ Code End **********

Ronny