[Doctor GME]

حاولت وتوصلت لهذا الكود:

كود :

Private Sub ComboName_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboName.DrawItem

        If e.Index = -1 Then Return

        Dim myFont As Font = New Font("times new roman", 10, FontStyle.Regular)
        Dim mycolor As New Color
        Dim myBrush As Brush = Brushes.Black
        Dim rect As Rectangle = New Rectangle(0, e.Bounds.Top, e.Bounds.Width - 1, e.Bounds.Height - 1)

        e.DrawBackground()
        e.DrawFocusRectangle()

        Select Case ComboName.Items(e.Index).ToString
            Case "GOOD"
                mycolor = Color.Pink
            Case Else
                mycolor = Color.White
        End Select

        If e.State = DrawItemState.Selected Then
            myBrush = Brushes.Red
        Else
            myBrush = Brushes.Black
        End If

        e.Graphics.DrawRectangle(New Pen(mycolor), rect)
        e.Graphics.FillRectangle(New SolidBrush(mycolor), rect)
        rect.Inflate(1, 1)
        e.Graphics.DrawString(ComboName.Items(e.Index).ToString(), myFont, myBrush, e.Bounds, StringFormat.GenericDefault)

    End Sub

ولكن الخلفية دائماً (بيضاء) والنص (أسود) لكل items وأنا لا أعرف كيفية تفعيل "case "GOOD لتغييره
وبعدها ربط قاعدة البيانات به كما ذكرت