Credo di non poterti aiutare con il codice su visual basic ...
Dovresti chiedere nella sezione dedicata al vb (anche perchè questa discussione dovrebbe, poi, essere chiusa)