Private Sub ComboBox1_DrawItem(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.DrawItemEventArgs) _
      Handles ComboBox1.DrawItem
 
    If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
       e.Graphics.FillRectangle(New SolidBrush(Color.LightGray), e.Bounds)
    Else
       e.Graphics.FillRectangle(New SolidBrush(Color.AntiqueWhite), e.Bounds)
    End If
 
    e.Graphics.DrawString(ComboBox1.Items(e.Index).ToString, _
       e.Font, New SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y)    
End Sub