mi aporte...

[chileno]

hola..... thecidmx .....gracias por vuestra atencion...espero comentarios ¡¡¡¡¡

[Neftali [Germán.Estévez]]

Hola.
No he podido ejecutarlo, porque me faltan algunos componentes. He ojeado el código y no le veo nada raro.
Tal vez algún bloque donde repites líneas (o similares) que tal vez se podrían pasar a algún procedimiento, pero por lo demás no he visto nada raro... (tampoco lo he mirado línea a línea... ;-) )

[chileno]

hola neftali....si quieres te envio el ejecutable¡¡¡....