DockingPanel Layout suggestion

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello,
This simple code  will  make me crazy ... 

Private Sub Form_Load()

    Dim A As Pane, B As Pane, C As Pane, D As Pane

    Set A = DockingPaneManager.CreatePane(1, 600, 40, DockBottomOf, Nothing)
    A.Title = "A"
    A.Options = PaneNoCloseable + PaneNoFloatable

    Set B = DockingPaneManager.CreatePane(2, 600, 200, DockTopOf, A)
    B.Title = "B"
    B.Options = PaneNoHideable + PaneNoCloseable + PaneNoFloatable

    Set C = DockingPaneManager.CreatePane(3, 120, 120, DockRightOf, Nothing)
    C.Title = "C"
    C.Options = PaneNoCloseable + PaneNoFloatable

    Set D = DockingPaneManager.CreatePane(4, 120, 120, DockBottomOf, C)
    D.Title = "D"
    D.Options = PaneNoCloseable + PaneNoFloatable

    DockingPaneManager.Options.HideClient = True

End Sub

I cannot understand why panel A has a strange behavior. When I click on hide / show, the position is not correct. The more I click hide/show, the more panels are docked wrong. 
What I wish is easy to understand (panel A should stay in the bottom of panel B and not occupy the space of panel D). Any suggestion?

Thank you

Alberto