PUBLIC oform1

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

DEFINE CLASS form1 AS form

	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT list1 AS listbox WITH ;
		ColumnCount = 2, ;
		RowSourceType = 9, ;
		RowSource = "myPopup", ;
		Height = 170, ;
		Left = 52, ;
		Top = 40, ;
		Width = 272, ;
		Name = "List1"


	PROCEDURE Load
		DEFINE POPUP myPopup MARGIN MOVER
		ON SELECTION POPUP myPopup ;
			SET MARK OF BAR BAR() OF myPopup !MRKBAR('myPopup', BAR())
		DEFINE BAR 1 OF myPopup PROMPT 'ITEM 1'
		DEFINE BAR 2 OF myPopup PROMPT 'ITEM 2'
		DEFINE BAR 3 OF myPopup PROMPT 'ITEM 3'
	ENDPROC

ENDDEFINE