Code de test :
Code : Tout sélectionner
OpenWindow(0, 379, 172, 588, 389, #PB_Window_SystemMenu, "Test PB4")
CreateGadgetList(WindowID(0))
ComboBoxGadget(0, 10, 40, 130, 20)
For i = 0 To 10
AddGadgetItem(0, -1, "Item" + Str(i))
Next
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End