主题：[求助]窗口中打开窗口出错

 如果报错，那就加上msgbox定位出错位置。凭你所说，无法确定你哪里出问题。

1、不要在timertick事件写那句代码；

2、AutoSizeRows的代码你可以写在表事件里触发。或者timertick的间隔时间设置大一些。

实例发上来测试。

Forms("导航窗口").Controls("SplitContainer2").Panel1Collapsed = True  '隐藏导航栏

Dim PB As WinForm.Panel = e.Form.Controls("Panel4")
Dim Name As String = "录入"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
'Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
'PB.BaseControl.Controls.Clear
PB.BaseControl.Controls("panel5").visible = False
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
Forms(Name).BaseForm.left = (pb.width-Forms(Name).BaseForm.width) / 2
Forms(Name).BaseForm.top = (pb.height-Forms(Name).BaseForm.height) / 2
pb.Select
'Forms("录入").open()