Foro de elhacker.net

Bien explico un poco...

Tengo una lista de Formularios que he cargado en un List... Ahora bien, creo una function donde requiero el formulario, ejem:

Public Fuction Ejecutar (Formulario as Form)
....
....
....
....
End Function

El detalle es que no puedo llamar por ejemplo la function de esta manera...

Ejecutar List1.Text

Ya que me causa un error porque es un string lo que lee y no el formulario como tal... Quisiera saber si existe alguna manera de hacer eso???

Private Sub Command1_Click()
    Dim vForm As Form
    Set vForm = Forms.Add("form2")
    vForm.Show
End Sub
 

con CallByName:

Private Sub Command1_Click()
    Dim vNombreForm As String
    Dim vForm As Form
 
    vNombreForm = "Form2"
    Set vForm = CallByName(Forms, "Add", VbMethod, vNombreForm)
    vForm.Show
End Sub

Che, Te luciste...! Gracias