主题：AddHandler ,AddressOf 　设置鼠标离开变成手型的设置

绑定mouseMove事件

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.hand

Public Sub qj_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.hand
End Sub

叫你绑定mousemove事件啊，要说多少次？只有用mousemove事件才能做到你要的效果。

Public Sub qj_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.hand
End Sub

这样绑定事件

AddHandler ct.MouseMove, AddressOf QJ_MouseMove

Public Sub panel1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
Dim lvw As windows.forms.Listview = sender
Dim isContains As Boolean = False
For i As Integer = 0 To lvw.Items.Count - 1
    Dim rec As Rectangle = lvw.Items(i).GetBounds(System.Windows.Forms.ItemBoundsPortion.Entire)
    If rec.Contains(e.Location) Then
        isContains = True
        Exit For
    End If
Next
If isContains Then
    lvw.Cursor = System.Windows.Forms.Cursors.Hand
Else
   lvw.Cursor = System.Windows.Forms.Cursors.[Default]
End If
End Sub

mark listview鼠标

全局代码

Public Sub panel1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs)
Dim lvw As windows.forms.Listview = sender
Dim isContains As Boolean = False
For i As Integer = 0 To lvw.Items.Count - 1
    Dim rec As Rectangle = lvw.Items(i).GetBounds(System.Windows.Forms.ItemBoundsPortion.Entire)
    If rec.Contains(e.Location) Then
        isContains = True
        Exit For
    End If
Next
If isContains Then
    lvw.Cursor = System.Windows.Forms.Cursors.Hand
Else
   lvw.Cursor = System.Windows.Forms.Cursors.[Default]
End If
End Sub

绑定事件

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim o As windows.Forms.Listview = lvw.basecontrol
addhandler o.mousemove, addressof panel1_mousemove