Private Sub chkSelectMode_Click()

Dim rStyle As Long
Dim r As Long

' Hämtar den aktuella Listview "egenskapen" - style biten
rStyle = SendMessageLong(ListView1.hwnd, _
LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)

If chkSelectMode.Value = 0 Then
' tar bort den utökade "style" biten
rStyle = rStyle Xor LVS_EX_FULLROWSELECT
ElseIf chkSelectMode.Value = 1 Then
' sätter den utökade "style" biten
rStyle = rStyle Or LVS_EX_FULLROWSELECT
End If

' sätter den nya Lisvtview egenskapen
r = SendMessageLong(ListView1.hwnd, _
LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rStyle)

End Sub