VB5 el programa no respode

[erbuson]

Hola:

como no se si tal como tienes la estructura del programa montada, ignoro si puedes ir eliminando los elementos creados para volver a crearlos si los necesitas.

Si NGra empieza siempre desde 1 podrías hacer después de usarlos un bucle que los elimine, piensa en este caso que el elemento 0 no puede borrarse

For Borrar = 1 to Ngra
Remove Picture2(Borrar)
Next

Otra opción sería limpiar los Picture despues de usarlos
For Borrar = 1 to NGra
Picture2.Picture = LoadPicture("") ' Creo recordar que así se borra la imagen
Next

Tal vez con esto sea suficiente.

Saludos