كيف يمكنني ان اعمل كل صف في جدول الضرب بلون معين

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 12
ListBox1.Items.Add(String.Format("{0} x 5 = {1}", i, i * 5))
Next
End Sub

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem

e.DrawBackground()
Dim myBrush As Brush = Brushes.Black
Select Case e.Index
Case 0
myBrush = Brushes.Red
Case 1
myBrush = Brushes.Blue
Case 2
myBrush = Brushes.Green
Case 3
myBrush = Brushes.Yellow
Case 4
myBrush = Brushes.Black
Case 5
myBrush = Brushes.Brown
Case 6
myBrush = Brushes.Gray
Case 7
myBrush = Brushes.Pink
Case 8
myBrush = Brushes.Gold
Case 9
myBrush = Brushes.Tomato
Case 10
myBrush = Brushes.Orange
Case 11
myBrush = Brushes.Purple
End Select
e.Graphics.DrawString(CType(sender, ListBox).Items(e.Index).ToString(), e.Font, myBrush, e.Bounds, StringFormat.GenericDefault)
e.DrawFocusRectangle()
End Sub