Get Form by Name (1)

Imports System.Reflection
Imports System.windows.forms

'Creates form from form name - CASE SENSITIVE
Public Shared Function GetFormByName( _
ByVal formName As String) As Form

Dim assemblyName As String = _
[Assembly].GetEntryAssembly().GetName.Name.Replace(" ", "_")

Dim myType As Type = _
Type.GetType(assemblyName & "." & formName)

Return CType(Activator.CreateInstance(myType), Form)

End Function