[VB.NET] كيف اجعل صف في listbox ملون - نسخة قابلة للطباعة

PHP كود :
Public Class BoxList
    Inherits ListBox

    Public Sub New()
        Me.DrawMode = DrawMode.OwnerDrawFixed
        Me.ItemHeight = 16
    End Sub

    Protected Overrides Sub OnDrawItem(e As DrawItemEventArgs)
        e.DrawBackground()
        e.DrawFocusRectangle()
        ' ****************************************************
        ' يمكنك التحكم في الون من الكود التالي
        Dim limeColor As Color = Color.DarkBlue
        ' يمكنك التحكم في مكان رسم التكست من هنا
        Dim indent As Single = 5
        ' ****************************************************

        If e.Index < 0 OrElse e.Index >= MyBase.Items.Count Then
            e.Graphics.DrawString(Me.Text, e.Font, New SolidBrush(e.ForeColor), CSng((e.Bounds.Left + indent)), CSng(e.Bounds.Top))
        Else
            e.Graphics.DrawString(MyBase.Items(e.Index).ToString(), e.Font, New SolidBrush(limeColor), CSng((e.Bounds.Left + indent)), CSng(e.Bounds.Top))
        End If
        MyBase.OnDrawItem(e)
    End Sub

End Class