Mi scuso con alka.
Non avevo notato che mancava il linguaggio, altrimenti non avrei risposto.
Il codice postato è VB6.