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