Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
 
        Dim lb As ListBox = CType(sender, ListBox)
        Dim dataItem As String = lb.Items(e.Index)(lb.DisplayMember).ToString()
 
        e.DrawBackground()
        e.Graphics.DrawString(dataItem, lb.Font, Brushes.Red, e.Bounds)
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov