Image et ExplorerTree

[ThoT]

J'ai un petit souci, je n'arrive pas à faire s'afficher une image selectionnée dans un GadgetExplorerTree.
J'ai crée ce code :

Enumeration
#Window_0
EndEnumeration

Enumeration
#ExplorerTree_0
#Image_0
EndEnumeration

;---------- Declaration des procedures ----------

Procedure Fenetre1()
If OpenWindow(#Window_0, 216, 0, 600, 300, "Explorateur d'images", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
ExplorerTreeGadget(#ExplorerTree_0, 10, 10, 250, 280, "C:\*.jpg;*.bmp;*.gif")
ImageGadget(#Image_0, 340, 10, 250, 280, 0)

EndIf
EndIf
EndProcedure

Fenetre1()

;---------- Boucle Principale ----------

Repeat

evenement = WaitWindowEvent()

If evenement = #PB_EventType_Change And GetGadgetState = #PB_Explorer_File

chemin.s = GetGadgetText(#ExplorerTree_0)

image = LoadImage(#PB_Any, chemin.s)

SetGadgetState(#image_0, ImageID(image))

EndIf

Until evenement = #PB_Event_CloseWindow

End

Mais ca marche poa...

Expliquez moi s'il vous plait!! J'ai honte de ma nullité...