Sorry, ho copiao il codice sbagliato!!!!

Nella prima If non è If ListBox1.SelectedItem Then ma è

If ListBox1.SelectedIndex Then

:P