Cargar en un list todos los formularios que tengo abiertos o estan cargados?

[KingColt]

gracias tio funciona al 100% quedo de esta manera

Código:

Private Sub Command1_Click()
   Dim Formulario As Form
   For Each Formulario In Forms
   x = Formulario.Name
   List1.AddItem (x)
   Next
End Sub

saludos