Ho trovate molti codici su unternet che facevano questa ma con VB8 non funzionavano!