Concordo con mgmg, anche io ero tentato di scrivere un codice simile..
Chiaramente il codice di mgmg è fatto apposta per le liste con proprietà "MultiSelect" = True, ma funziona anche in caso di selezione unica..

Ciao