Neat little thing.

[Thomas Halsvik]

Create 4 forms and try this code from a module.
Form4 remains inside Form3, Form 3 remains inside Form2, Form2 remains inside Form1.

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

Sub Main()
    MsgBox "test"
    Load Form1
    Load Form2
    Load Form3
    Load Form4
    SetParent Form4.hWnd, Form3.hWnd
    SetParent Form3.hWnd, Form2.hWnd
    SetParent Form2.hWnd, Form1.hWnd
    Form1.Show
    Form2.Show
    Form3.Show
    Form4.Show
End Sub

[Jop]

Yeah that's indeed pretty cool but don't forget to place this in the parent form for nice unloading

Private Sub Form_Unload(Cancel As Integer)
Dim frm As Form
For Each frm In Forms
   Unload frm
   Set frm = Nothing
Next
'End isn't that rude anymore because everything is unloaded
   End
End Sub

[oetje]

You can use this code te crash the computer:

Setparent Form1.hwnd, Form1.hwnd

[alex_read]

Very nice!!!
Keep puttin ones like those here (www.eeggs.com) vb trick here too.

oetje, why do you think he was trying to crash the pc?

[oetje]

Originally posted by alex_read
oetje, why do you think he was trying to crash the pc?

I just wanted to say, that you must be careful when using setparent.