cozumunu paylasabilirsin aslinda ..

ben bi seyler yaptim belki faydasi olabilir

listbox'un selectionmodu nu multisimple yaptiktan sonra

c# kodu

listBox1.Items.Cast<string>().Select(int.Parse).Select((val, ix) => new {val, ix})
.OrderByDescending(o=>o.val).Take(3).ToList().ForEach(item=>listBox1.SetSelected(item.ix,true));

vb.net kodu

ListBox1.Items.Cast(Of String).Select(Function(o) Integer.Parse(o)).Select(Function(val, ix) New With {.val = val, .ix = ix})
.OrderByDescending(Function(o) o.val).Take(3).ToList().ForEach(Sub(item) ListBox1.SetSelected(item.ix, True))