Opa e ai cara....quando fui te responder no MSN vc já tinha saido.....bom fiz uma rotininha aqui que vai quebrar mó galhão.....
'No General do form
Dim Frm As Form
Dim vNum As Integer
------------------------------------------------------------------------------
Private Sub Command1_Click()
Form2.Show
Form2.Hide
'Aqui no caso to usando apenas 2 form's.....dei um "show" depois um "hide" pois o form tem que estar "instanciados" (carregados na memória) como diria meu amigo Roberto....rs
vNum = 0
For Each Frm In Forms
If Frm.Count <> vNum Then
List1.AddItem Frm.Name
vNum = vNum + 1
End If
Next Frm
End Sub
'No final se vc quiser vc pode dar um Unload para descarregar a memória.....
-------------------------------------------------------------------------------
É isso ae qualquer coisa me fale.....