Public Sub SubclassingO_activate()
    With fListen
        If bColor = False Then
            ' Subclassing aktivieren
            ReDim Preserve clrtext(.LV(0).ListItems.Count)
            ReDim Preserve clrtextbk(.LV(0).ListItems.Count)
            g_MaxItems = .LV(0).ListItems.Count - 1
            g_addProcOld = SetWindowLong(.hWnd, GWL_WNDPROC, AddressOf _
              WindowProc)
            bColor = True
        End If
    End With
End Sub

For iA = 1 To myObjListe.Count
     Obj_FillColor myObjListe.Item(iA), iA
Next
 
Public Sub Obj_FillColor(ByVal Obj As BObj, ByVal iB As Integer)
    Dim irec        As IRecord
    Dim lColor      As Long
 
    Set irec = Obj
    With fListen
        If irec.Field("BackColor") > 10 Then
            lColor = CLng(irec.Field("BackColor"))
            SetLIBackColor .LV(0), iB, lColor
        Else
            SetLIBackColor .LV(0), iB, vbWhite
        End If
        '------------------------------------
        If irec.Field("ForeColor") > 10 Then
            lColor = CLng(irec.Field("ForeColor"))
            SetLIForeColor .LV(0), iB, lColor
        Else
            SetLIForeColor .LV(0), iB, vbBlack
        End If
    End With
End Sub