oForm = create('testselall')
oForm.Show(1)
**************************************************
*-- Class:        testselall (i:\vfptest\testclasses.vcx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   07/02/00 12:13:03 PM
*
DEFINE CLASS testselall AS form


	DoCreate = .T.
	Caption = "Form3"
	Name = "testselall"


	ADD OBJECT list1 AS listbox WITH ;
		RowSourceType = 1, ;
		RowSource = "a,b,c,d,e,f", ;
		Height = 145, ;
		Left = 66, ;
		MultiSelect = .T., ;
		Top = 42, ;
		Width = 193, ;
		Name = "List1"


	PROCEDURE list1.Init
		for lnI = 1 to this.listcount
			this.selected(lnI) = .T.
		endfor
	ENDPROC


ENDDEFINE
*
*-- EndDefine: testselall
**************************************************