...
Public Const LVM_FIRST = &H1000
Public Const LVM_SETITEMSTATE = LVM_FIRST +  43 
Public Const LVM_GETITEMSTATE = LVM_FIRST +  44 
Public Const LVIS_STATEIMAGEMASK = &HF    '0xF000
Type LVITEM
    mask        As Long
    iItem       As Integer
    iSubItem    As Integer
    state       As Long
    StateMask   As Long
    pszText     As String
    cchTextMax  As Integer
    iImage      As Integer
    lParam      As Long
    iIndent     As Integer
    iGroupId    As Integer
    cColumns    As Long
    puColumns   As Long
End Type
...
Public Function LVSetItemCheck(ListView As Object, nItem As Integer, ByVal NewVal As Boolean) As Boolean
    LVSetItemCheck = LVSetItemState(ListView, nItem, IIf(NewVal,  8192 ,  4096 ), LVIS_STATEIMAGEMASK)
End Function

Public Function LVSetItemState(ListView As Object, nItem As Integer, ByVal NewVal As Integer, nMask As Long) As Boolean
   Dim nLvItem As LVITEM
'   nLvItem.iItem = nItem
   nLvItem.StateMask = nMask
   nLvItem.state = NewVal
   LVSetItemState = CBool(SendMessage(ListView.hWnd, LVM_SETITEMSTATE, nItem, nLvItem))
End Function

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Function LVSetItemCheck(hwnd As Long, nItem As Integer, ByVal NewVal As Boolean) As Boolean
   Dim pItem As LV_ITEM
    With pItem
      .mask = LVIF_STATE 'забыл софсем указать сначала, а это - важно 
      .iItem = nItem
      .StateMask = LVIS_STATEIMAGEMASK
      .state = INDEXTOSTATEIMAGEMASK(Abs(NewVal) +  1 )
   End With
     
   LVSetItemCheck = ListView_SetItem(hwnd, pItem)
   
'
'   nLvItem.mask = LVIF_STATE
'   nLvItem.iItem = nItem
'   nLvItem.StateMask = nMask
'   nLvItem.state = NewVal
'   LVSetItemCheck = LVSetItemState(ListView, nItem, INDEXTOSTATEIMAGEMASK(Abs(NewVal) + 1), LVIS_STATEIMAGEMASK)
End Function
Public Function ListView_SetItem(hwnd As Long, pItem As LV_ITEM) As Boolean

  'Sets some or all of a tree-view item's
  'attributes. Old docs say returns zero if
  'successful or - 1 otherwise.
  'New docs say returns TRUE if successful,
  'or FALSE otherwise!
   
   ListView_SetItem = SendMessage(hwnd, LVM_SETITEM,  0 &, pItem)
  
End Function
Public Function INDEXTOSTATEIMAGEMASK(iState As Long) As Long

  'Prepares the index of a state image so that a
  'treeview control or listview control can use the
  'index to retrieve the state image for an item.
  'Returns the one-based index of the state image
  'shifted left twelve bits. A common control
  'utility macro.
  'This macro is defined in Commctrl.h as:
  '#define INDEXTOSTATEIMAGEMASK(i) ((i) << 12)
  
   INDEXTOSTATEIMAGEMASK = iState * ( 2  ^  12 )

End Function