'Deklaration der Listbox
  Dim WithEvents lbo As New ListBox With {.Parent = Me, .Width = 300, 
                                          .DrawMode = DrawMode.OwnerDrawFixed}
 
 'Einige Items eintragen
 lbo.Items.Add("Item eins")
 lbo.Items.Add("Item zwei")
 lbo.Items.Add("Item drei")
 
 
'Ereignis zum Zeichnen der Items
 
Private Sub lbo_DrawItem(sender As Object, e As DrawItemEventArgs) Handles _
  lbo.DrawItem
 
        e.DrawBackground()
 
        Dim txt As String = lbo.Items(e.Index).ToString
        Dim parts() As String = txt.Split(" ")
 
        Using redbrush As New SolidBrush(Color.Red),
              greenbrush As New SolidBrush(Color.Green)
 
            Dim l As Integer = 
                CInt(e.Graphics.MeasureString(parts(0) & "  ", lbo.Font).Width)
 
            e.Graphics.DrawString(parts(0) & " ", lbo.Font, greenbrush, _
              e.Bounds.Location)
            e.Graphics.DrawString(parts(1), lbo.Font, redbrush, 
                                  e.Bounds.Location.X + l, e.Bounds.Location.Y)
        End Using
End Sub