Truver les handles des onglets de Panoramic Editor

Ce petit code réalise cela:

Code:: dim res%, x%, y%, hnd%, titre$, hnd1%, s$, i%, s1$

dll_on "KGF.dll"

alpha 10 : top 10,10 : left 10,10
memo 20 : top 20,40 : left 20,10 : bar_both 20 : height 20,300 :width 20,400

titre$ = "PANORAMIC EDITOR"
hnd1% = dll_call2("GetWindowByTitle",1,adr(titre$))
if hnd1%=0
message titre$+" n'est pas actif"
terminate
end_if
caption 10,str$(hnd1%)
res% = dll_call2("GetProcessChildWindowHandle",hnd1%,handle(20))
s$ = ""
for i%=1 to count(20)
s1$ = item_read$(20,i%)
if instr(s1$,"TTabSheet=")>0
s$ = s$ + item_read$(20,i%)+chr$(13)+chr$(10)
s$ = s$ + item_read$(20,i%+1)+chr$(13)+chr$(10)
end_if
next i%
clear 20
text 20,s$
end

On a ainsi les handles des objets Synedit contenant le code des différents onglets.