@H_502_2@方法一：

@H_502_2@

@H_502_2@　　DimNewMDIChild As New Form3 ‘实例化子窗体Form3

@H_502_2@

@H_502_2@　　NewMDIChild.MdiParent = Me ‘设置子窗体的父窗体为本窗体

@H_502_2@

@H_502_2@　　NewMDIChild.Show() ‘显示子窗体

@H_502_2@

@H_502_2@

@H_502_2@方法二：

@H_502_2@

@H_502_2@　　 '声明SetParent函数，这是一个API函数 用来设置子窗体

@H_502_2@　　

@H_502_2@　　Declare FunctionSetParent Lib "user32" Alias "SetParent" (ByVal hWndChildAs IntPtr,

@H_502_2@

@H_502_2@ByVal hWndNewParent As IntPtr) As Long

@H_502_2@

@H_502_2@　　‘调用函数创建子窗体

@H_502_2@　　

@H_502_2@　　SetParent(Form4.Handle,Me.Handle)

@H_502_2@

@H_502_2@　　Form4.Show()

@H_502_2@

@H_502_2@

@H_502_2@

@H_502_2@

@H_502_2@

@H_502_2@　　但是个人感觉第二种方法比较好用。

@H_502_2@

@H_502_2@　　因为第一种方法是通过不断实例化一个子窗体实现的，不做判断的话触发一次就会增加

@H_502_2@

@H_502_2@一个。判断方法自便，这里找到了要少敏师姐的经验：

@H_502_2@

@H_502_2@http://www.jb51.cc/article/p-tqyxqmrd-qr.html

@H_502_2@　　而且还有一点，当子窗体边界超出父窗体时，父窗体会自动出现滚动条

@H_502_2@

@H_502_2@

@H_502_2@

@H_502_2@

@H_502_2@　　当移动滚动条后所有子窗体会发生移动，而父窗体控件因为有固定坐标不会发生移动。

@H_502_2@

@H_502_2@（通过第二种方法获得的子窗体也不会动），很难受。

@H_502_2@

@H_502_2@

@H_502_2@