Private Function FormByName(ByVal FormName As String) As _
    WeifenLuo.WinFormsUI.Docking.DockContent
 
        ' Referenz auf die ausgeführte (diese) Assembly holen
        'Dim myAssembly As System.Reflection.Assembly _
        '                = System.Reflection.Assembly.GetExecutingAssembly()
 
        ' Den Namen der Assembly ermitteln:
        'Dim strAssemblyName As String = myAssembly.GetName().Name.ToString
 
        ' Den kompletten Namen (inkl. Assemblynamen) des Form-Typs ermitteln
        ' (diese Zeile sorgt zudem für Toleranz bzgl. Groß-/Kleinschreibung):
        'Dim FullName As String = myAssembly.GetType(strAssemblyName & "." & 
        ' FormName, False, True).ToString
 
        ' Form instanzieren und Formvariable zuweisen
        'Dim myForm As System.Windows.Forms.Form _
        '           = CType(myAssembly.CreateInstance(FullName),  _
        '                   System.Windows.Forms.Form)
        'Dim myForm As WeifenLuo.WinFormsUI.Docking.DockContent _
        '           = CType(myAssembly.CreateInstance(FullName),  _
        '                   WeifenLuo.WinFormsUI.Docking.DockContent)
 
        'Return myForm
 
        '
        'Neue Variante, damit keine neue Instanz erstellt wird, sondern die 
        ' bestehende benutzt.
        '
 
        'Wichtig, die Forms vorher auf Visible = true setzen, da diese 
        ' Eigenschaft nicht aus der 
        'Layoutdatei übernommen wird.
        Application.OpenForms.Item(FormName).Visible = True
        Return CType(Application.OpenForms.Item(FormName), _
          WeifenLuo.WinFormsUI.Docking.DockContent)
    End Function