API兑现让子窗体脱离父窗体，实现对立窗口

API实现让子窗体脱离父窗体，实现对立窗口
API实现让子窗体脱离父窗体，实现对立窗口
------解决方案--------------------

'新建一个工程，添加一个MDI窗体，设置Form1为MDI自窗体，在其内添加一个Command1，键入如下代码

Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click()

    Dim lngP As Long

    lngP = SetParent(Me.hWnd, ByVal 0&)

    Command1.Caption = lngP

End Sub