Private Declare Sub SetWindowWord Lib "User32" (ByVal hWnd As Long, ByVal nCmd _
  As Long, ByVal nVal As Long)
 
Public Sub SetOwner(FormOwned As Form, FormOwner As Form)
    Const SWW_HPARENT = -8
 
    SetWindowWord FormOwned.hWnd, SWW_HPARENT, FormOwner.hWnd
End Sub

Call SetOwner Form2, Form1

lg stift