急，帮忙把一段delphi的代码改成VB.NET的

Delphi(Pascal) code:

for I := 0 to ListBox1.Items.Count -1 do
begin
if ListBox1.Selected[I] then ListSelectItem := I;
ListBox1.Selected[I] := False;
end;
ListBox1.Selected[ListSelectItem] := True;

---

VB.NET code:

for I = 0 to ListBox1.Items.Count -1 do
if ListBox1.Selected[I] is True then ListSelectItem = I
else
ListBox1.Selected[I] = False
end if
end for
ListBox1.Selected[ListSelectItem] = True

---

ListBox1这是个ListBox，我不知道在D下的Selected这个属性在VB.NET下有没有

---

ListBox1.SelectedIndex = 0 '选中第一项
str = ListBox1.SelectedItem '当前选定项

---

实际上我是想实现当我点击ListBox空白处的时候，能让ListBox选中状态都变成未选中状态。默认的情况下点击空白的地方，上一次选中的行数还是有蓝底的。
上面我的代码在D下是通过的，是可以实现我所要的结果，但在VB.Net不知道应该怎么写

---

ListBox1.SelectedIndex=-1试试

---

这样好象不行的。虽然可能这时候ListBox是没选中那一行，但是那一行还是蓝底的，我不想显示这蓝底

---

哪位帮忙一下呢？我不会VB.NET。分不够可以再加

---

引用

ListBox1这是个ListBox，我不知道在D下的Selected这个属性在VB.NET下有没有

有这个属性的

---

for I = 0 to List