I can get the active Panel but how to get to panelhost, so i can add new panel in the right place?

Thanks,

Dim tmp_DockHost As NDockingPanelHost = DirectCast(current_active_panel.ParentZone.Children(currentChild), NDockingPanelHost)

Dim activePanel As NDockingPanel = TryCast(NDockManager1.ActivePanel, NDockingPanel)

If Not activePanel Is Nothing Then

    Dim host As NDockingPanelHost = activePanel.ParentZone

    Dim panel As NDockingPanel = New NDockingPanel()

    host.AddChild(panel)

End If