[VB 6.0] Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long
В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В случае успеха функция возвращает дескриптор дочернего окна бывшего родительского окна
' Переместим кнопку Command1, которая является ' дочерним окном Form1 к его новому родительскому окну Form2 Dim oldhwnd As Long ' дескриптор прежнего родителя кнопки ' теперь кнопка на Form2 oldhwnd = SetParent(Command1.hWnd, Form2.hWnd)