dim o as object dim f as miformulario1 For each o in panel.children o.delete() next f=new miformulario1(panel) f.show