XProfan

Windowstyle 24
Window 300,120 - 200,300
var suchstring&=Create("Edit",%hwnd,"",10,10,width(%hwnd)-20,20)
var name_liste&=Create("ListBox", %hwnd, 1, 10, 40, width(%hwnd)-20, height(%hwnd)-50)
AddStrings(name_liste&,"Klaus")
AddStrings(name_liste&,"Peter")
AddStrings(name_liste&,"Susi")
AddStrings(name_liste&,"Heiner")

while 1

    waitinput
    case getfocus(suchstring&) : Select String(name_liste&,-1,Gettext$(suchstring&))

Endwhile