If you use a Combobox,
you open the list and close it
and beginnings a Mouse Right Drag from the button of Drop
and you move in the zone where the list would come designed,
you have one multiple selection with ProgrammaticChange.

Run this:
- start a Mouse Right Drag on the Drop Button
- move anywhere, none occurs.
- click on Drop Button
- press esc
- now, start a Mouse Right Drag on the Drop Button
and move where the there is the Gost List,
immediately start a drag selection,
without DropDown event !

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 146
	Width = 500
	DoCreate = .T.
	Caption = "Form1"
	Name = "form1"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 46, ;
		Left = 53, ;
		Height = 184, ;
		Width = 268, ;
		BackColor = RGB(255,255,0), ;
		Name = "Shape1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		WordWrap = .T., ;
		Alignment = 2, ;
		BackStyle = 0, ;
		Caption = "And RightButton Drag here and where the popup is draw ( UNDER THE FORM MARGIN)", ;
		Height = 32, ;
		Left = 62, ;
		Top = 77, ;
		Width = 244, ;
		ForeColor = RGB(255,0,0), ;
		Name = "Label1"


	ADD OBJECT combo1 AS combobox WITH ;
		RowSourceType = 1, ;
		RowSource = "ITEM1,ITEM2,ITEM3,ITEM4,ITEM5,ITEM6,ITEM7", ;
		ControlSource = "m.thisform.Tag", ;
		Height = 24, ;
		Left = 54, ;
		Style = 2, ;
		Top = 47, ;
		Width = 266, ;
		DisplayCount = 20, ;
		Name = "Combo1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		Caption = "<--- Hold RightButton Here", ;
		Height = 17, ;
		Left = 325, ;
		Top = 50, ;
		Width = 148, ;
		Name = "Label2"

	PROCEDURE combo1.ProgrammaticChange
		WAIT windows "ProgrammaticChange  "+TRANSFORM(SECONDS()) nowait
	ENDPROC

ENDDEFINE

Question, i can use ComboBox ?