LoadState/SaveState not restoring TaskPanel

 

Code below...

'===================================

'Main form

'===================================

Private Sub MDIForm_Load()
    'dp is DockingPane

    Dim thePane As Pane
    Set thePane = dp.CreatePane(1, 200, 1, DockLeftOf)
    thePane.title = "test"
    thePane.Handle = frmTest.hwnd

    dp.LoadState "MyTest", App.title, "DockingPanes"

End Sub

 

Private Sub MDIForm_Unload(Cancel As Integer)
    On Error GoTo test
    'Docking Pane info...
    dp.SaveState "MyTest", App.title, "DockingPanes"

End Sub

 

'============================

'Test form

'============================

Private Sub frmTest_Load()
    With wndTaskPanel
        '.Icons = im.Icons
        .SetMargins 0, 2, 0, 2, 2
        .SetGroupIconSize 16, 16
        '.SetGroupIconSize 32, 32
        .SetIconSize 32, 32
        .EnableAnimation = True
        .Behaviour = xtpTaskPanelBehaviourToolbox
    End With

    Dim navBarGroup As TaskPanelGroup
    Dim navBarGroupItem As TaskPanelGroupItem
   
    With wndTaskPanel
        Set navBarGroup = .Groups.Add(0, "2138")
        With navBarGroup
            '.SetIconSize 32, 32
            .IconIndex = ID_MAIN_NEW
            .ToolTip = "This is the Order Group - layout default"
            .ItemLayout = xtpTaskItemLayoutDefault
           
            Set navBarGroupItem = .Items.Add(ID_MAIN_NEW, "2001", xtpTaskItemTypeLink, ID_MAIN_NEW)
            With navBarGroupItem
                .ToolTip = "2500"
            End With
           
            Set navBarGroupItem = .Items.Add(ID_MAIN_OPEN, "2002", xtpTaskItemTypeLink, ID_MAIN_OPEN)
            With navBarGroupItem
                .ToolTip = "2501"
            End With
           
            Set navBarGroupItem = .Items.Add(ID_MAIN_DELETE, "2013", xtpTaskItemTypeLink, ID_MAIN_DELETE)
            With navBarGroupItem
                .ToolTip = "2507"
            End With
       
            Set navBarGroupItem = .Items.Add(ID_MAIN_PREVIEW, "2005", xtpTaskItemTypeLink, ID_MAIN_PREVIEW)
            With navBarGroupItem
                .ToolTip = "2510"
            End With
        End With

 'Abbreviated the task panel groups and items to make it clearer as to what is occurring.
End Sub

 

Private Sub frmTest_Resize()
    wndTaskPanel.Left = 0
    wndTaskPanel.Top = 0
    wndTaskPanel.Width = Me.ScaleWidth
    wndTaskPanel.Height = Me.ScaleHeight
End Sub

 

I would send pictures to show what is happening, however I don't have enough permissions to do that. 

 

I am using version 11.2 of the ActiveX controls.