Поиски в List

[neic]

Надеюсь все знают CheMax?!
Так вот, там в текстовое поле вводишь название игры и в листбоксе ищиться эта игра, если её нет, то она максимально приблежаеться к резульату, например: есть список в нём 3 игры: А, А1, А123

Допустим мне нужны коды к игре А123, я ввожу А -> выделяеться А -> ввожу А1 ->выделяеться А1-> я ввожу А12 -> выделяеться А123

Так вот мне нужен этот алгоритм! Заранее БОЛЬШУЩИЕ СПАСИБО

[Ship]

Код: Выделить всё

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F

Private Sub Form_Load()

List1.AddItem "111"
List1.AddItem "222"
List1.AddItem "228"
List1.AddItem "2291"
List1.AddItem "2293"
List1.AddItem "2297"

End Sub

Private Sub Text1_Change()

List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))

End Sub