Private Function GetFormByName(ByVal formName As String) As Object
Dim myasm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Try
Return myasm.CreateInstance(myasm.GetName.Name.Replace(" ", "_") & "." & formName)
Catch ex As Exception
Return Nothing
End Try
End Function