Private Function GetContentFromPersistString(ByVal persistString As String) _
      As WeifenLuo.WinFormsUI.Docking.DockContent
        Console.WriteLine("PersistString: " & persistString.ToString)
        Select Case persistString
            'Formulare Kundenbetreuung
            Case GetType(frm_KBSuchmaske).ToString
                Return frm_KBSuchmaske
            Case GetType(frm_KBErgebnisliste).ToString
                Return frm_KBErgebnisliste
            Case GetType(frm_KBKundeDetail).ToString
                Return frm_KBKundeDetail
            Case GetType(frm_KBBriefeAuswahl).ToString
                Return frm_KBBriefeAuswahl
            Case GetType(frm_KBBriefeAuswahl).ToString
                Return frm_KBBriefeAuswahl
                'Formulare Vermittler
                'Case GetType(frm_KBBriefeAuswahl).ToString
                '    Return frm_KBBriefeAuswahl
        End Select
        Return Nothing
    End Function

 
return Formular.Name("persiststring")