WM_MDIICONARRANGE = &amp;H228
Private Const WM_MDIMAXIMIZE = &amp;H225
Private Const WM_MDINEXT = &amp;H224
Private Const WM_MDIRESTORE = &amp;H223
Private Const WM_MDITILE = &amp;H226
Private Const MDITILE_HORIZONTAL = &amp;H1
Private Const MDITILE_VERTICAL = &amp;H0
Private Const GW_CHILD = 5
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd
 As Long) As Long

Private Function GetMDIClienthWnd() As Long
   GetMDIClienthWnd = GetWindow(Me.hwnd, GW_CHILD)
End Function

Private 