¿Cómo abrir MdiChildren con nombre de ventana como "variable"?

[zick]

Buenas a Todos.. aqui nuevamente recurriendo a vuestra ayuda.

Pues la cuestión es la siguiente. Para poder abrir una ventana desde un MdiParent como Child, lo utilizo de la siguiente forma:

Código:

 
Dim Lista As New ListaDeClases
Lista.MdiParent = Me
Lista.Show()

Se supone que "ListaDeClases" es el nombre del formulario que abriré como "hijo" en le MdiParent. Ahora bien. ¿Y que tal si con un mismo formulario, dependiendo de una opcion, quisiera abrir otro formulario? ¿Se puede hacer?

En sintesis, lo que quiero lograr, es que un usuario escoja el formulario que quiera abrir desde un combobox y abrirlo dentro de un MdiParent como un MdiChild.

Agradezco la ayuda que me puedan brindar, como siempre. Saludos...

[gedarufi]

Se me ocurre que puedes utilizar la clase Form para hacer esto ya que seria la clase base, simplemente deberias de tener una lista con los diferentes formularios que quieres abrir y en base a la selección del usuario le apliques el método, otra cosa que se me ocurre que podes hacer es utilizar Reflection que podes utilizarlo para algo mas genérico.

Saludos

[zick]

Muchas gracias gedarufi, me haz mostrado el camino a lo que andaba buscando.

La verdad es que utilize Reflection, y quedó bastante bueno. Anexo el código de como lo hice para alguien que lo pueda necesitar.

Código:

Imports System.Windows
Imports System.Windows.Forms

Public class form1

Private ass As System.Reflection.Assembly

Private Sub from1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ass = System.Reflection.Assembly.GetExecutingAssembly()
End Sub

Private Sub BtnContinar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnContinar.Click
        Dim s As String = Me.LbDestino.Text 'el nombre del formulario de forma "SISTEMA.formulario"
        ' creamos un tipo a partir del nombre
        Dim t As Type = ass.GetType(s)
        ' instanciamos un nuevo objeto en la memoria
        Dim o As Object
        ' por si hemos seleccionado algo que no es una clase
        Try
            o = Activator.CreateInstance(t)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error al crear la instancia")
            Exit Sub
        End Try
        If Not (TypeOf o Is Form) Then
            MessageBox.Show(s & ", no es un formulario", "Problema al crear formulario")
            Exit Sub
        End If

        Dim frm As Form = DirectCast(o, Form)
        frm.MdiParent = formularioprincipal
        frm.Show()
    End Sub
End class

Saludos a todos los visitantes y gracias nuevamente