[ابو محمد محمد محمد]

كود :

dim int as integer

for i as integer =1 to 3
dim btn as new button
btn.text="btn" + i.tostring
btn.name="btn" + i.tostring
btn.left=10
btn.top=int
me.controls.add(btn)

int +=30

next