Risolto, ma ho dovuto cercare in non so quante pagine...

codice:
    Function GetFormByName(ByVal FormName As String) As Form
        Dim T As Type = Type.GetType(FormName,True,True)
        Return CType(Activator.CreateInstance(T), Form)
    End Function

'an example call:
GetFormByName("Form2").Show