Force Pane to dock back to original location

Private Sub DockingPaneManager_Action(ByVal Action As XtremeDockingPane.DockingPaneAction, _
                                      ByVal pane As XtremeDockingPane.IPane, _
                                      ByVal Container As XtremeDockingPane.IPaneActionContainer, _
                                      Cancel As Boolean)
    On Error Resume Next

    If Action = PaneActionFloating Or Action = PaneActionAttaching Then
        Cancel = True
    End If
End Sub