Get Form by Name (2)

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

Source : http://www.tek-tips.com/faqs.cfm?fid=6037