Protected Overrides Sub OnDrawItem _
   (ByVal e As System.Windows.Forms.DrawItemEventArgs)
 
   e.DrawBackground()
 
   Dim myBrush As Brush = Brushes.Black
 
   Select Case e.Index Mod 2
      Case 0
         myBrush = Brushes.Red
      Case 1
         myBrush = Brushes.Green
   End Select
 
   If MyBase.Items.Count > 0 Then
      e.Graphics.DrawString(MyBase.Items(e.Index).ToString(), _
      e.Font, myBrush, e.Bounds, StringFormat.GenericDefault)
   End If
 
   e.DrawFocusRectangle()
End Sub