VB.net ListBox自绘（实现不同颜色字体等）

摘自网络：

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    SellList.DrawMode = DrawMode.OwnerDrawFixed
    SellList.Items.AddRange(New String() {"第一", "第二", "第三"})
End Sub

Private Sub SellList_DrawItem(sender As Object, e As DrawItemEventArgs) Handles SellList.DrawItem
    'Dim lb As ListBox = CType(sender, ListBox)
    If e.Index = -1 Then
        Return
    End If

    If e.Index = 2 Then
        e.Graphics.DrawString(SellList.Items(e.Index), SellList.Font, Brushes.Red, e.Bounds.X, e.Bounds.Y)
    Else
        e.Graphics.DrawString(SellList.Items(e.Index), SellList.Font, Brushes.Green, e.Bounds.X, e.Bounds.Y)
    End If
End Sub