Nel forum avevo visto questa funzione per VB6, rimaneggiandola..., adesso se la trovo la posto