for i as byte=0 to 10 dim lab as new label lab.name="lab" & i lab.location=new point(0,i*20) lab.autosize= true lab.text=i panel1.controls.add(lab) next
