Cita:
Iniciado por Sebasedeno Para cerrar muchos forms juntos hace esto amigo:
For i = 0 To Forms.Count - 1
If Forms(i).Name <> "MdiMenu" Then
Unload Forms(i)
End If
Next
Donde "MdiMenu" es el nombre del form MDI Padre
amigo, Muchas gracias
, todo perfecto, pero.....no me funciono así, me funciono de este modo...
For i = 1 To Forms.Count - 1
If Forms(1).Name <> "Inicio" Then
Unload Forms(1)
End If
Next
a "i" le puse el valor de 1 para que no contará el MDI padre, y elimine los "i" por que no quiso funcionar así, me da un error, imagino que cuando se cierra un form(1), el form(2) pasa a ser el form(1) y así sucesivamente.......pero de todos modos, ya me funciona, pero si sabes que es lo que estoy haciendo mal, avisame, muchas gracias, me fue muy útil