private sub form1_load(byval sender as object, byval e as system.eventargs) handles me.load
dim t as integer = 3 dim left as integer = 12 dim top as integer = 12
dim lb(t) as listbox for i as integer = 0 to t - 1 lb(i) = new listbox with lb(i) .left = left .top = top + 100 * i end with me.controls.add(lb(i)) next
lb(0).items.add( "item1 ") lb(1).items.add( "item1 in lb(1) ") lb(2).items.add( "another item ") end sub