Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
Public Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Dim HWNDAnt as Long
HWNDAnt = GetParent(Form1.hWnd)
SetParent Form1.hWnd, Picture1.Hwnd
'Close
SetParent Form1.hWnd, HWNDAnt
Mais exemplos...
