Hi,

I'm trying to load into memory or open dinamicaly the forms in my program but a don't know how to do it?

IF I DO IT LIKE THAT I ONLY GET THE CURRENT FORM NAME
Public Function FormName() As Form
Dim frm As Form
Dim i as Integer

i = 0
For Each frm In Forms
i = i + 1
Set gNomesForms(i) = Forms(i)
Next

End Function


Select case is out of question.

Best Regards
Luis Moura