Form che si espande o che si unisce a un'altra

[LMondi]

Nel modulo della Form1:

Private Sub Command1_Click()
    Load Form2
    Form2.Show
End Sub

Nel modulodella Form2:

Private Sub Form_Activate()
    Me.Top = Form1.Top
    Me.Left = Form1.Left + Form1.Width + 10
    Me.Height = 3405
End Sub