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
    End Function