Subj:  minimize all			Section: Forms Programming
  To:  Nick Farries, 101574,634		Sunday, July 27, 1997 11:27:40 AM
From:  Calvin Smith [TRS], 102226,2127	#683067

>>> I would like to be able to minimize the entire application from any open form. <<<

Assuming that you only have one MS Access (16-bit) session running, the following will work fine:

Declare Sub CloseWindow Lib "User" (ByVal hWnd As Integer)
Declare Function FindWindow% Lib "User" (ByVal lpClassName As Any, ByVal lpCaption As Any)

Sub MinimizeAccessWindow ()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Author:            Calvin Smith  - www.CalvinSmithSoftware.com
'Environment:       MS Access (16-BIT)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'   ************************************************
'   * Courtesy code from my CodeDisk© product
'   * Ordering information available through E-Mail
'   ************************************************
'
'
    ' -------------------------------------------------------
    '
    ' Purpose: Minimize the MS Access parent window via API
    '
    ' Accepts: Nothing
    '
    ' Returns: Nothing
    '
    ' -------------------------------------------------------
'

On Error GoTo MinimizeAccessWindow_Err

    CloseWindow (FindWindow%("OMain", 0&))

MinimizeAccessWindow_Err:

    If Err Then
        ' Do whatever you need to here
    End If

End Sub

>>> TIA <<<

You're welcome! ;-)

Calvin Smith - Sr. Visual Basic/MS Access Consultant
********************************************************
http://www.CalvinSmithSoftware.com/
********************************************************