dim o as object set o=me.controls.add("vb.textbox","textname") with o .visible=true .top=500 .left=500 .width=1000 .height=325 end with