[VB6]Codice per copiare un codice in una text box

[loddo]

ma va bene per un command button (quando schiaccio il command button il contenuto della test box viene copiato)