Товарисчи!!! Никто не пробовал делать быстрый поиск в Pick-колонке XpressQuantumGrid-а?

Вот код (VB) быстрого поиска в обыкновенном комболисте:

Private Sub OrdCombo_KeyUp(KeyCode As Integer, Shift As Integer)
Dim st As Long
Dim x As Integer
''''''''''''''''''''''''''
If KeyCode <> vbKeyReturn And KeyCode <> vbKeyBack And KeyCode <> vbKeySpace Then
st = Len(OrdCombo.Text)
If st < 6 Then
For x = 0 To OrdCombo.ListCount - 1
If LCase(Left(OrdCombo.List(x), st)) = LCase(OrdCombo.Text) Then
OrdCombo.ListIndex = x
OrdCombo.SelStart = st
OrdCombo.SelLength = Len(OrdCombo.Text) - st

Exit For
End If
Next x
End If
End If
End Sub

Задумка проста и стара, как мир, но при всем при этом я не смог привязать данный код к Pick-колонке (по сути аналогу комбобокса).

У кого есть идеи, как это сделать?