e.Form.Panel.Controls.Add(TblCtl)
改成
Dim tab = e.form.controls("TabControl1").BaseControl
tab.tabpages(1).controls.add(TblCtl)