Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long
 
Private Declare Function SetWindowTheme Lib "uxtheme.dll" ( _
    ByVal hwnd As Long, _
    ByVal pszSubAppName As Long, _
    ByVal pszSubIdList As Long _
) As Long
 
 Const LVM_FIRST As Long = &H1000
 Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = (LVM_FIRST + 54)
 Const LVS_EX_DOUBLEBUFFER As Long = &H10000
 Const LVS_EX_GRIDLINES As Long = &H1
 Const LVS_EX_FULLROWSELECT As Long = &H20

Private Sub Form_Load()
' Microsoft Common Controls 5.0 (SP2)
Call SetWindowTheme( _
    ListView1.hwnd, _
    StrPtr("Explorer"), _
    0 _
)
 
 SendMessageLong ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, _
   LVS_EX_FULLROWSELECT, ByVal CLng(True)
 SendMessageLong ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, _
 LVS_EX_DOUBLEBUFFER, ByVal CLng(True)
End Sub