'Show the window and activate it

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long



Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long)
Private Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal _
    X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight _
    As Long, ByVal bRepaint As Long) As Long

Private Type Rect
    x1 As Long
    Y1 As Long
    x2 As Long
    y2 As Long
End Type

'ShowWindow constants
'-----------------------------------------
Public Const SW_HIDE As Long =  0 
'hide the window
Public Const SW_MAXIMIZE As Long =  3 
'maximize the window
Public Const SW_RESTORE =  9 
'restore window (put not maximized not minimized)
Public Const SW_SHOW As Long =  5 
'show the window
Public Const SW_SHOWMAXIMIZED As Long =  3 
'show the window maximized
Public Const SW_SHOWMINIMIZED As Long =  2 
'show the window minimized
Public Const SW_SHOWMINNOACTIVE =  7 
'show window minimized but not activate it
Public Const SW_SHOWNA =  8 
'show window in its current state but do not activate it
Public Const SW_SHOWNOACTIVATE =  4 
'Show the window in its most recent size and postion but not activate it
Public Const SW_SHOWNORMAL =  1 
Public Const SW_MINIMIZE =  6 
Public Const SW_SHOWDEFAULT =  10 


Public Sub MaximizeRestoredForm(F As Form)
'This code was originally written by Terry Kreft.
'максимизирует - свертывает окно без вывода кнопки Close
    Dim MDIRect As Rect
    ' If the form is maximized, restore it.
    If IsZoomed(F.hWnd) <>  0  Then
        ShowWindow F.hWnd, SW_SHOWNORMAL
    End If
    ' Get the screen coordinates and window size of the
    ' MDIClient area.
    'This is the line which is different
    GetClientRect GetParent(F.hWnd), MDIRect
    ' Move the form to the upper left corner of the MDIClient
    ' window (0,0) and size it to the same size as the
    ' MDIClient window.
    MoveWindow F.hWnd,  0 ,  0 , MDIRect.x2 - MDIRect.x1, MDIRect.y2 - MDIRect.Y1, True
End Sub