主题：ListView控件，代码有错。

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current
vr.BackColor = Color.Blue

代码放在表事件CurrentChanged