SelectLine

Const LVM_FIRST = &H1000
Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55
Const LVS_EX_FULLROWSELECT = &H20
'_________________________________________________________


Public Sub LVFullRowSelect(lv As ListView, ByVal bSet As Boolean)
Dim style As Long
Dim szTmp As String
On Error Resume Next
style = SendMessageAsLong(lv.hWnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
If bSet Then
style = style Or LVS_EX_FULLROWSELECT
Else
style = style And (Not LVS_EX_FULLROWSELECT)
End If
Call SendMessageAsLong(lv.hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, style)
End Sub

Come evidenziare tutta la riga di una ListView