Declare Function SetParent Lib "user32.dll" ( _
        ByVal hWndChild As Int32, _
        ByVal hWndNewParent As Int32) As Int32
        ' ..
        Dim frm As New Form
        frm.Show()
        Me.SetParent(frm.Handle.ToInt32, Me.Panel1.Handle.ToInt32)
        Dim gr As Graphics = frm.CreateGraphics
        gr.DrawString("Hello World!", New Font("Arial", 20), Brushes.Red, 10, _
          10)