Cerrar form`s que estan cargados en un list1

[KingColt]

Bueno con este codigo obtengo en un list los form que estan cargados

Código:

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

Como hago para cerrar todos los que estan en el list menos el que se llame form1

he intentado unload x dentro del bucle, pero me sale error

[culd]

La solucion

Código:

Dim Formulario As Form
For Each Formulario In Forms
    If UCase(Formulario.Name) <> "FORM1" Then
        Unload Formulario
    End If
Next

[KingColt]

Tio no me funciona me cierra todos los formularios incluyendo al form1, voy a seguir probando haber si logro excluir el form1 para que este no se cierre

saludos

[seba123neo]

Hola, proba:

Código vb:

Dim Formulario As Form
For Each Formulario In Forms
    If Not Formulario Is Form1 Then
        Unload Formulario
    End If
Next
 

saludos.

[KingColt]

Bien tios gracias por las ayudas