If e.Index < 0 Then Exit Sub
 
        Dim lb As ListBox = CType(sender, ListBox)
        Dim dataItem As String = CType(lb.Items(e.Index), DataRowView)( _
          lb.DisplayMember).ToString
 
        e.DrawBackground()
 
        Dim I As Integer
        Dim DR As DataRow
        For I = 0 To LBoxDataSet.Tabelle1.Rows.Count
            DR = LBoxDataSet.Tables(0).Rows(e.Index)
            If DR("ID").ToString.Contains(dataItem) Then
                If DR("Bol").ToString = "True" Then
                    e.Graphics.DrawString(dataItem, lb.Font, Brushes.DarkGreen, _
                      e.Bounds)
                Else
                    e.Graphics.DrawString(dataItem, lb.Font, Brushes.Black, _
                      e.Bounds)
                End If
            End If
        Next

Gruß
Christoph