Ищется контрол Listbox с определёнными свойствами

Text1 = List1.List(N)

Text1 = ListBoxW1.List(?)

Private Sub ListBoxW1_ItemDraw(ByVal Item As Long, ByVal itemAction As Long, ByVal ItemState As Long, ByVal hDC As Long, ByVal Left As Long, ByVal Top As Long, ByVal Right As Long, ByVal Bottom As Long)

Option Explicit
Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function SetDCBrushColor Lib "gdi32" (ByVal hdc As Long, ByVal colorref As Long) As Long
Private Declare Function SetDCPenColor Lib "gdi32" (ByVal hdc As Long, ByVal colorref As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextW" (ByVal hdc As Long, ByVal lpStr As Long, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
 
Dim WithEvents TrickList As clsTrickListBox
Dim ListItems(3) As String
Dim pen As Long
 
Private Const DC_BRUSH = 18
Private Const DC_PEN = 19
 
Private Type RECT
    Left            As Long
    Top             As Long
    Right           As Long
    Bottom          As Long
End Type
 
Private Sub Form_Load()
    List1.AddItem ""
    List1.AddItem ""
    List1.AddItem ""
    List1.AddItem ""
    
    Set TrickList = New clsTrickListBox
    Set TrickList.ListBox = List1
    'TrickList.ItemHeight = 48
    TrickList.DefaultDraw = False
    
    ListItems(0) = "Первая строка листбокса"
    ListItems(1) = "Вторая строка листбокса"
    ListItems(2) = "Третья строка листбокса"
    ListItems(3) = "Четвёртая строка листбокса"
End Sub
 
Private Sub TrickList_Draw(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal index As Long, ByVal State As StateEnum)
    Dim oBr As Long
    Dim oPn As Long
    Dim cx  As Long
    Dim cy  As Long
    Dim c1  As Long
    Dim c2  As Long
    Dim rc  As RECT
    Dim txt As String
    
    oBr = SelectObject(hdc, GetStockObject(DC_BRUSH))
    oPn = SelectObject(hdc, GetStockObject(DC_PEN))
    
    If State = ES_NORMAL Then
        SetDCBrushColor hdc, vbWhite
        SetDCPenColor hdc, &HE0E0E0
        Rectangle hdc, x, y, x + width, y + height + 1
        c1 = vbBlack: c2 = &H909090
    ElseIf State = ES_SELECTED Then
        SetDCBrushColor hdc, &HFF8080
        SetDCPenColor hdc, &HFFA050
        Rectangle hdc, x, y, x + width, y + height
        c1 = vbWhite: c2 = &HC0C0C0
    Else
        SetDCBrushColor hdc, &HFFA080
        SelectObject hdc, pen
        Rectangle hdc, x, y, x + width, y + height
        c1 = vbWhite: c2 = &HC0C0C0
    End If
    
    x = x + cx
    SetRect rc, x, y, x + width, y + height
    
    If index = 0 Then c1 = vbBlack
    If index = 1 Then c1 = vbBlue
    If index = 2 Then c1 = vbRed
    If index = 3 Then c1 = vbGreen
    
    SetTextColor hdc, c1
    cy = DrawText(hdc, StrPtr(ListItems(index)), Len(ListItems(index)), rc, 0)
    
    rc.Top = rc.Top + cy
    SetTextColor hdc, c2
        
    SelectObject hdc, oPn
    SelectObject hdc, oBr
End Sub

Option Explicit
 
' Загадать число от и до
Public Function Random(ROt As Long, RDo As Long) As Long
    Randomize
    Random = CLng(Int(Rnd(1) * (RDo - ROt + 1)) + ROt)
End Function
 
Private Sub Command1_Click()
    End
End Sub
 
Private Sub Command2_Click()
    Dim i As Long
    Dim str As String
    
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems.Item(i).Checked = True Then
            str = str & ListView1.ListItems.Item(i).Text & vbNewLine
        End If
    Next
    
    If str <> vbNullString Then
        MsgBox "У нас стоят галочки на следующих строках:" & vbNewLine & vbNewLine & str, vbInformation
    Else
        MsgBox "Галочки пока нигде не стоят!", vbInformation
    End If
End Sub
 
Private Sub Form_Load()
    Dim i As Long
    
    ListView1.View = LvwViewReport
    ListView1.FullRowSelect = True
    ListView1.GridLines = True
    ListView1.HideColumnHeaders = True
    
    ListView1.ColumnHeaders.Add , , , ListView1.Width - 350
    ListView1.ListItems.Add , , "Первая строка"
    
    ListView1.Redraw = False
    For i = 1 To 100
        ListView1.ListItems.Add(, , ChrW$(1234) & " строка номер " & CStr(i + 1)).ForeColor = Random(0, 16000000)
    Next
    ListView1.Redraw = True
End Sub

ListView1.ListItems.Item(n).ForeColor = vbRed