老师，

Dim e As object =args(0)
Dim ymtype As String=args(1)
Dim pnl As object=args(2)
Dim ymgz As String=pnl.name.split("_")(2)
Dim ctab As WinForm.TabControl=pnl.Form.CreateControl("tbl_nb_" & ymgz, ControlTypeEnum.tabcontrol)
ctab.TabPages.Add("pgnb_tab_" & ymgz,ymgz)
ctab.TabPages.Add("pgnb_lsw_" & ymgz,ymgz)
ctab.Dock = 5
ctab.ShowTabs =False
pnl.Form.AddControl(ctab)
pnl.Form.Controls("tbl_nb_" & ymgz).Basecontrol.borderstyle = Windows.Forms.FormBorderStyle.None\'去掉边框
pnl.AddControl(ctab)
If pnl.Form.Controls.contains("Tab_" & ymgz) = False Then
    Dim str As String=Functions.Execute("za_nb_sqlselect",ymgz)
    Dim tbl As WinForm.Table = pnl.Form.CreateSQLTable("tab_" & ymgz," Select * fr om {za_setoppage} where 1=2", sjy)
tbl.Visible=False
    tbl.Dock = 5
    Dim pg As WinForm.TabPage=ctab.TabPages("pgnb_tab_" & ymgz)
    \'pnl.Form.AddControl(tbl)
    pg.AddControl(tbl)
End If

导致下面的情况出现 左上角  闪动一个控件 然后消失了，应该是个Table，如何能改善呢？

 你单独测试添加table，是否也有类似的问题。

 具体的实例发上来。

一般点击第一次时出现，然后电脑内存小的就比较卡，比较明显。