[求助]先前运行正常,现在报错了,请帮忙看看! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tbc As WinForm.TabControl =Forms("首页").Controls("TabControl")
Forms("首页").Controls("TabControl").basecontrol.VisualStyle = 5
For Each tbp As WinForm.TabPage In tbc.TabPages
    If tbp.Name = e.Button.Name Then
        tbc.SelectedPage = tbp
        Return
    End If
Next
tbc.TabPages.Add(e.Button.Name,e.Button.Name)
Dim frm = Forms(e.Button.Name)
frm.OPEN(-1000,-1500)
frm.BaseForm.TopLevel = False   '窗口降级
frm.BaseForm.Dock = Windows.Forms.DockStyle.fill
frm.BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
tbc.TabPages(e.Button.Name).Controls.add(frm.BaseForm)
tbc.SelectedIndex = tbc.TabPages.Count-1

主题：[求助]先前运行正常,现在报错了,请帮忙看看!