参考代码
Dim p As object = e.form.controls("TextBox1").basecontrolDo until p.Gettype.name = "FormPanel" msgbox(p.parent.Gettype.name) p = p.parentLoop
msgbox(p.name)