Ya se me hacía raro el ejemplo inicial que ponías...; sobre tu código, no veo la razón del bucle en el código que muestras, prueba con lo siguiente:
Código:
Private Sub mnuClick_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Buscar As String = Buscar = CType(sender, MenuItem).Text
Try
' Referencia al assembly actual
Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
' Si se encuentra en otro assembly, utiliza uno de estos métodos
'asm = Assembly.Load(...)
'asm = Assembly.LoadFile(...)
'asm = Assembly.LoadFrom(...)
Dim Fr As Form = CType(asm.CreateInstance("NombreEspacio." & Buscar), Form)
Fr.MdiParent = Me
Fr.StartPosition = FormStartPosition.CenterScreen
Fr.Show()
Catch ex As Exception
MsgBox(ex.ToString(), MsgBoxStyle.Critical, "Aplicación")
End Try
End Sub
En la parte de
CreateInstance debes poner la "ruta" completa de tu clase, por ejm deberías usar asm.CreateInstance("Foo.Bar"), si tienes tu código de la siguiente forma:
Código:
Namespace Foo
Class Bar...
No te aseguro que funcione ya que me dió un poco de pereza
, pero la idea es esa.
Saludos