Form2.Left = Form1.Left
    Form2.Top =Form1.Top + Form1.Height

Public Function NewFormMainWindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
  'сама форма Form1 чтобы таскать за ней Form2

  ' Keep the dimensions in bounds.
  If Msg = WM_WINDOWPOSCHANGING Then
    If (lParam.cx <> 0) And (lParam.cy <> 0) Then
      Form2.Left = lParam.x * Screen.TwipsPerPixelX
      Form2.Top = (lParam.y + lParam.cy) * Screen.TwipsPerPixelY
    End If
  ElseIf Msg = WM_WINDOWPOSCHANGED Then
    If (lParam.cx <> 0) And (lParam.cy <> 0) Then
      Form2.Left = lParam.x * Screen.TwipsPerPixelX
      Form2.Top = (lParam.y + lParam.cy) * Screen.TwipsPerPixelY
    End If
  End If

  ' Continue normal processing. VERY IMPORTANT!
  NewFormMainWindowProc = CallWindowProcWP( _
   OldFormMainWindowProc, hwnd, Msg, wParam, _
   lParam)
End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    'снятие сабклассинга
    SetWindowLong Form1.hwnd, GWL_WNDPROC, OldFormMainWindowProc
End Sub