If OpenWindow(0,20,150,270,140,"Liste von ComboBox anzeigen",#PB_Window_SystemMenu)
  ComboBoxGadget(0,10,10,250,20)
  For i= 1 To 8
    AddGadgetItem(0,-1,"Item "+Str(i))
  Next i
  SendMessage_(GadgetID(0),#CB_SHOWDROPDOWN,1,1)
  Repeat
    Event = WaitWindowEvent()
  Until Event=#PB_Event_CloseWindow
EndIf