EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ExplorerComboGadget(1,10,10,200,20,"C:\")
  AddGadgetItem(1,-1,"Test-Eintrag")
  TextGadget(2,220,10,200,20,"ComboBox ist eingeklappt.",0)
  
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
  Select EventGadget()
    Case 1
      If SendMessage_(GadgetID(1), #CB_GETDROPPEDSTATE, 0, 0)
        SetGadgetText(2,"ComboBox ist ausgeklappt.")
      Else
        SetGadgetText(2,"ComboBox ist eingeklappt.")
      EndIf
  EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf