Descargar muchos forms

[NYlOn]

Hola a todos:
En mi programa necesito ir creando diferentes forms iguales por lo que utilizo el siguiente codigo:

Código [Seleccionar] Expandir


Dim Ventana as Form
Set Ventana = New Form2
Ventana.Show


Lo que necesito hacer es cerrar todas esas ventanas abiertas, ya que si pongo Unload Ventana solo se cierra la ultima ventana creada.
Por favor si alguien sabe como hacerlo que me de una mano.

Gracias de antemano.

[.Slasher-K.]

Código [Seleccionar] Expandir


Sub UnloadForms()
     Dim csForm

  For Each csForm In Forms
    Call Unload(csForm)
  Next
End Sub


[NYlOn]

Muchas gracias.-