Инкрементальный поиск в Listbox без сортировок и без дополнительного компонента Edit

Задай вопрос и получи ответ Да или нет


Gui, Add, ListBox, w200 r10 vSearchBox, %List%
OnMessage(0x0102, "WM_CHAR")
..
WM_CHAR(W, L, M, H) {
; LB_ERR = -1, LB_FINDSTRING = 0x018F, LB_SETCURSEL = 0x0186
Static PrevTick := A_TickCount
, Find := ""
If (A_GuiControl = "SearchBox" ) {
ThisTick := A_TickCount
If ((ThisTick - PrevTick) > 500)
Find := Chr(W)
Else
Find .= Chr(W)
PrevTick := ThisTick
ItemIndex := DllCall("SendMessage", "Ptr", H, "UInt", 0x018F, "Ptr", -1, "Ptr", &Find, "Ptr")
DllCall("SendMessage", "Ptr", H, "UInt", 0x0186, "Ptr", ItemIndex, "Ptr", 0)
Return 0
}
}

Как видно в функции надо управлять именем vSearchBox.
Оригинал тут https://www.autohotkey.com/boards/viewtopic.php?f=76&t=75215&p=325269#p325269