Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.CustomersTableAdapter.Fill(Me.Nwind2000DataSet.Customers)
 
        ListBox1.DataSource = CustomersDataGridView.DataSource
        ListBox1.DisplayMember = "CompanyName"
    End Sub
 
    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 item As DataRowView = ListBox1.Items(e.Index)
        e.Graphics.DrawString(item(ListBox1.DisplayMember), e.Font, b, _
          e.Bounds, StringFormat.GenericDefault)
        e.DrawFocusRectangle()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist