Dim dt As New DataTable
dt.Columns.Add("Spalte", GetType(String))
dt.Rows.Add("Der String")
 
Dim drv As New DataView(dt)
 
ListBox1.DataSource = drv
ListBox1.DisplayMember = "Spalte"
ListBox1.DrawMode = DrawMode.OwnerDrawFixed
 
 
Private Sub ListBox1_DrawItem(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.DrawItemEventArgs) _
     Handles ListBox1.DrawItem
 
     If e.Index < 0 Then Return
     e.DrawBackground()
 
     Dim b As Brush = Brushes.Red
 
     Dim drv As DataRowView = _
     CType(ListBox1.Items(e.Index), DataRowView)
 
     Dim itemstring As String = _
     CType(drv.Item(ListBox1.DisplayMember), String)
 
     '....... 
End Sub