VB6 or VB.NET version do as follow:
Set up our local LV_ITEM to change the selected item = LVIF_STATE
LVITEM.state = LVIS_CHECKED LVITEM.stateMask = LVIS_STATEIMAGEMASK
The rest you know what to do
where i is totalPals for i as integer = 0 to totalPals - 1 SendMessage(hwnd, LVM_SETITEMSTATE, i, LVI) next i
hope this helps.