einfach vorher schauen, ob es den Index gibt
runter zu
if ListBox.ItemIndex > -1
rauf
if ListBox.ItemIndex < ListBox.Count
bei der Exchange-Sache natürlich einen Wert weniger
runter zu
if ListBox.ItemIndex > 0
rauf
if ListBox.ItemIndex < ListBox.Count-1