11 lines
343 B
Plaintext
11 lines
343 B
Plaintext
colMyCollection=CREATEOBJECT("Collection")
|
|
frm1=CREATEOBJECT("Form")
|
|
frm2=CREATEOBJECT("Form")
|
|
colMyCollection.Add(frm1)
|
|
colMyCollection.Add(frm2)
|
|
colMyCollection.Add("Item 1")
|
|
colMyCollection.Add("Item 2")
|
|
colMyCollection.Add("Item 3")
|
|
Form1.lstMyList.RowSourceType = 10
|
|
Form1.lstMyList.RowSource = "colMyCollection, Caption, Name"
|