Referenciar um Formulário pelo Nome em VB.Net

  Function PegaFormPeloNome(ByVal FormName As String) As Form

    Dim T As Type = Type.GetType(FormName, False)
    If T Is Nothing Then
      Dim Fullname As String = Application.ProductName & "." & FormName
      T = Type.GetType(Fullname, True, True)
    End If
    Return CType(Activator.CreateInstance(T), Form)
End Function