EnableExplicit Define EventID Define CBHandle If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) CBHandle = CreateWindowEx_(0, "COMBOBOX", #Null, #WS_CHILD | #WS_OVERLAPPED | #WS_VISIBLE | #CBS_SIMPLE | #CBS_SIMPLE, 10, 10, 200, 200, WindowID(0), #Null, #Null, #Null) SendMessage_(CBHandle, #CB_ADDSTRING, 0, "Item 1") SendMessage_(CBHandle, #CB_ADDSTRING, 0, "Item 2") SendMessage_(CBHandle, #CB_ADDSTRING, 0, "Item 3") Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf