PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form


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


	ADD OBJECT combo1 AS combobox WITH ;
		RowSourceType = 1, ;
		Left = 15, ;
		Top = 44, ;
		Width = 100, ;
		DisplayCount = 40, ;
		Name = "Combo1"


	PROCEDURE combo1.GotFocus
		KEYBOARD '{ALT+DNARROW}'
	ENDPROC


	PROCEDURE combo1.Init
		s = ''
		FOR i=1 TO 100
		 S = m.S + ",Item"+LTRIM(STR(m.i))
		NEXT
		this.RowSource = SUBSTR(m.s,2)
		this.ListIndex = 1
	ENDPROC


ENDDEFINE