Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Item.Selected=True
End Sub

Public Function NewFormPWindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'для событий FormP т.е. FormP-родитель ListView1-реализация события ListView1_ItemCheck(Control 5)
    Select Case Msg
        ' ======================================================
        Case WM_NOTIFY
            Static lvcd As NMLVCUSTOMDRAW
            MoveMemory lvcd, ByVal lParam, Len(lvcd)   ' every structs' member is a Long
            Select Case lvcd.nmcd.hdr.code
                Case LVN_ITEMCHANGED
                    Select Case lvcd.nmcd.hdr.hwndFrom 'в смысле какой контрол толкнул речь
                        Case FormP.ListView1.hWnd
                            'выделяем элемент, кот. изменился(где checked/unchecked)
                            If FormP.ListView1.ListItems.Count > (lvcd.iSubItem +  1 ) Then
                                'FormP.ListView1.ListItems(lvcd.iSubItem + 1).Selected = True
                                'ListViewSelectItem FormP.ListView1, lvcd.iSubItem + 1
                            End If
                        Case Else
                    End Select 'lvcd.nmcd.hdr.hwndFrom
                Case Else
            End Select ' lvcd.nmcd.hdr.code
        Case Else
    End Select   ' Msg
    NewFormPWindowProc = CallWindowProc( _
        OldFormPWindowProc, hWnd, Msg, wParam, _
        lParam)
End Function


Public Sub ListViewSelectItem(m_ListView As ComctlLib.ListView, m_Item As Long)
   Dim lvi As LV_ITEM
   With lvi
      .mask = LVIF_STATE
      .state = &HF
      .stateMask = LVIS_SELECTED 'Or LVIS_FOCUSED
   End With
   Call SendMessage(m_ListView.hWnd, LVM_SETITEMSTATE, m_Item -  1 , lvi)
End Sub