举个例子：我用SetParent这个API把系统的计算器窗体

vb有把setparent还原回来的API吗？
麻烦高手了

把父句柄改为0

getdesktophwnd +setparent

回复 studentxuefei :
setparent的返回值就是原来的父句柄..
进过测试,可以
Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Dim mlong As Long
Private Sub Form_Click()
Debug.Print SetParent(2164602, mlong)
End Sub
Private Sub Form_Load()
mlong = SetParent(2164602, Me.hWnd)
Debug.Print mlong
End Sub

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Dim mlong As Long
Private Sub Form_Click()
Debug.Print SetParent(1116888, 0)
End Sub
Private Sub Form_Load()
mlong = SetParent(1116888, Me.hWnd)
Debug.Print mlong
End Sub
win7测试可以