Это решение просто утяжелит ваш код; просто попробуйте это:
If e.State And DrawItemState.Selected Then
e.Graphics.FillRectangle(SystemBrushes.HotTrack, e.Bounds)
e.Graphics.DrawString(drv, Me.Font, SystemBrushes.HighlightText, e.Bounds.X + 18, e.Bounds.Y + 1)
Else
e.Graphics.FillRectangle(SystemBrushes.Window, e.Bounds)
e.Graphics.DrawString(drv, Me.Font, SystemBrushes.ControlText, e.Bounds.X + 18, e.Bounds.Y + 1)
End If
Эта операция: e.State And DrawItemState.Selected
проверяет, находится ли элемент в поиске. Не нужно ставить целый пакет кода, чтобы узнать, что за предмет находится.