Forms("子窗口").OPEN(-1000,-1500)
Forms("子窗口").baseform.Dock = Windows.Forms.DockStyle.Fill
Forms("子窗口").baseform.TopLevel = False
Forms("子窗口").baseform.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
pnl.basecontrol.Controls.Clear()
pnl.basecontrol.Controls.Add(Forms("子窗口").baseform)
--------------------------------------
子窗口必须设为独立窗口类型