主题：listview鼠标移动当前行变色问题

请教老师，想实现鼠标进入LISTVIEW控件时，鼠标移动到相关行（不是点击当前行），该行的背景颜色改变

我们模仿网上的一段代码改写后报错，请老师帮忙看看

Public Sub Listview_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim Lv As System.Windows.Forms.Listview = CType(sender, System.Windows.Forms.Listview)
    Dim OldItem As System.Windows.Forms.ListViewItem = Nothing
    If lv.Tag IsNot Nothing Then OldItem = CType(lv.Tag, System.Windows.Forms.ListViewItem)
    Dim Item As System.Windows.Forms.ListViewItem = Lv.GetItemAt(e.X, e.Y)

    If Item IsNot Nothing Then
        If OldItem IsNot Nothing AndAlso Not OldItem.Equals(Item) Then OldItem.BackColor = lv.BackColor
        Item.BackColor = Color.Red
        lv.Tag = Item
    Else
        If OldItem IsNot Nothing AndAlso Not OldItem.BackColor.Equals(Lv.BackColor) Then OldItem.BackColor = lv.BackColor
    End If
End Sub

'----------------------------------
Dim l As System.windows.forms.Listview = e.form.controls("listview1").basecontrol
addhandler l.mousemove, addressof Listview_MouseMove
l.refresh