Public Function ListItemIsChecked(LView As ListView, Itm As ListItem) As Boolean
Dim ret As Long
ret = SendMessage(LView.hWnd, LVM_FIRST + 44, _
Itm.Index - 1, LVIS_STATEIMAGEMASK)
ret = ret / (2 ^ 12)
ListItemIsChecked = (ret = 2)
End Function