Code: Select all
Procedure Combo_ChangeEvent()
Debug GetGadgetState(0)
EndProcedure
If OpenWindow(0, 0, 0, 270, 180, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ComboBoxGadget(0, 10, 10, 250, 21)
For a = 1 To 5
AddGadgetItem(0, -1,"Item " + Str(a))
Next
SetGadgetState(0, 1)
BindGadgetEvent(0,@Combo_ChangeEvent(),#PB_EventType_Change)
EndIf