imposer un item dans un list

dll_on "C:\PANO\COURS_Pano\DLLs\KGF.dll"
label teste , lire , trouve
dim hnd% ,s$ , res%  , a%
list 1 :on_click 1,lire
item_add 1,"un" :item_add 1,"deux":item_add 1,"trois":item_add 1,"quatre":item_add 1,"cinq":item_add 1,"six":item_add 1,"sept"
memo 3:left 3,150:top 3,30

button 2:left 2,150:caption 2,"home"  :on_click 2,teste
button 4:left 4,240:caption 4,"trouve":on_click 4,trouve
end

teste:
 hnd%=handle(1)
  s$ = chr$(36)
res% = dll_call2("SendSingleChar",hnd%,adr(s$))
return

trouve:
for a%=1 to count(1)
  s$ = chr$(40)
res% = dll_call2("SendSingleChar",hnd%,adr(s$))
if item_index$(1)="quatre" then exit_for
wait 200
next a%
caption 0,item_index$(1)
return

 lire:
  item_add 3,item_index$(1)
return

' pour définir la combo:
dim index_1%
combo 1
item_add 1,"aaaaa"
item_add 1,"bbbbb"
item_add 1,"cccccc"
item_add 1,"ddddd"
index_1% = 3
text 1,item_read$(index_1%)
...
' pour utiliser la valeur sélectionnée:
if iten_index(1)>0 then index_1% = item_index(1)
message "On a choisi "+item_read$(index_1%)
' au lieu d'utililiser item_index$(1) qui n'est défini que
' si l'on a cliqué dans la combo

' pour définir la combo:
dim index_1%
combo 1
item_add 1,"aaaaa"
item_add 1,"bbbbb"
item_add 1,"cccccc"
item_add 1,"ddddd"
index_1% = 3

text 1,item_read$(1,index_1%)

' pour utiliser la valeur sélectionnée:
if item_index(1)>0 then index_1% = item_index(1)
message "On a choisi "+item_read$(1,index_1%)
' au lieu d'utililiser item_index$(1) qui n'est défini que
' si l'on a cliqué dans la combo

' pour définir la combo:
label police
dim a%,f$ ,dat$ ,lig%
combo 1:top 1,30 :width 1,200
button 2:caption 2,"voir":on_click 2,police
list 3:left 3,width(1)+10:font_names_load 3
gosub police

data "Courier New","Bitstream Vera Sans Mono","Arial","$$$"
end
police:
clear 1
read dat$
if dat$="$$$" then restore:read dat$
for a%=1 to count(3)
  item_add 1,item_read$(3,a%)
  if item_read$(1,a%)=dat$ then lig%=a%:text 1,dat$
 next a%
 caption 0,item_read$(1,lig%)
return

res% = dll_call2("SelectListBoxItem",hnd%,item%)

function SelectListBoxItem(hnd, item: integer):integer; stdcall; export;
begin
    SendMessage(hnd, LB_SETCURSEL, item-1, 0); // Sélectionner l'élément
    result := 0;
end;