vb6 "accorciare" un codice

[croccio]

scusate ragazzi mi aiutate ad "accorciare" questo codice (con procedure o altro) per favore? non riesco proprio =(
Command1_Click

[alka]

Scusa, ma non è possibile porre domande in questi termini.

Se hai un problema specifico con il codice che hai scritto, esponilo e descrivilo, magari postando direttamente qui le parti incriminate o da migliorare con un minimo di descrizione e introduzione.

Comunque sia, è senz'altro fuori luogo e inaccettabile inoltrare un listato completo richiedendo agli utenti di "accorciarlo", compito che tra l'altro non è nemmeno tecnicamente chiaro, perché nessuno può togliere a prescindere qualcosa dal tuo codice senza sapere se questo è strettamente necessario o può essere evitato.