mm ahora que veo bien tu codigo creo que no iria con mi codigo, que quedaria algo asi:
Código vb.net:
Ver originalDim Formulario As String
Dim wSTproyecto As String = System.Reflection.Assembly.GetExecutingAssembly.Ge tName.Name
Dim ensamblado As [Assembly] = [Assembly].GetExecutingAssembly()
'Aqui extraes el nomre del formulario que se guardo en el nombre del control
Dim f As Form = ensamblado.CreateInstance(wSTproyecto + "." + Me.ActiveControl.Name.ToString, True)
f.ShowDialog()
Exit Sub