新建工程,添加一个mdi窗体,添加一个form2(mdichild=true)。
以下代码将原来的form1的父窗体设置成mdi窗体(form1的mdichild=false):
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Dim lRet As Long
lRet = SetParent(Form1.hwnd, Me.hwnd)
这样form1就是楼主要的了。