Метод или элемент данных не найден ошибка для listsubitems в VB6

---

I am getting the error "Method or Data Member not found" for ListSubItems whenever I try to compile the project. I have added the SP6 component, MSCOMCTL.OCX. But still I am getting this error. In the drop down ListSubItems is not available.

Public Function SetBoldToListItemInListView(lv As ListView, lvwItem As ListItem, bBold As Boolean) As Boolean
    Dim i As Integer
    On Error GoTo EH

    ResetBoldInListView Not bBold, lv  
    lvwItem.EnsureVisible

    For i = 1 To lvwItem.ListSubItems.Count
        lvwItem.ListSubItems(i).Bold = True
    Next  

    lvwItem.Bold = True 
    lvwItem.Selected = True 
    lv.Refresh  
    SetBoldToListItemInListView = True

ExitProc:
    On Error Resume Next  
    Exit Function

EH:    
    Error_Handler "Support / CheckUncheckItemsInListView"
    Resume ExitProc
End Function

Что я уже пробовал:

Я пытался скомпилировать его несколько раз. Я добавил компоненты :

Components : Desaware SpyWorks 6 Hook Control, Microsoft Calendar Control 2007, Microsoft Common Dialog Control 6.0(SP6), Microsoft FlexGrid Control 6.0(SP6), Microsoft Hierarchical FlexGrid Control 6.0(SP4) (OLEDB), Microsoft Masked Edit Control 6.0(SP3), Microsoft Tabbed Dialog Control 6.0(SP6), Microsoft Windows Common Controls 5.0(SP2), Microsoft Windows Common Controls 6.0(SP6), Microsoft Windows Common Controls-2 6.0(SP6),

Рекомендации :

Visual Basic For Applications, Visual Basic runtime objects and procedures, Visual Basic objects and procedures, Microsoft scripting runtime, MIcrosoft Data Formatting Object Library 6.0(SP6), OLE Automation, Microsoft Data Binding Collection VB 6.0 (SP4), Windows API (ANSI), Microsoft ActiveX data Objects 6.0 BackCompact Library,

---