En un módulo declarar :

Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
        ByVal hWndNewParent As Long) As Long

Para que el formulario Form2 quede flotante dentro del Form1 :

  Dim res as long

res = SetParent(Form2.hWnd, Form1.hWnd)