Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Function fun_ParentHwnd(Optional nHwnd As Long, Optional bClear As Boolean) As Long Dim n As Long 'Read registry setting for ParentHwnd from Parent form n = GetCUSetting("", "ParentHwnd", 0) fun_ParentHwnd = n End Function Sub MakeMeChild(nHwnd As Long) Dim nRet As Long UBhWnd = fun_ParentHwnd nRet = SetParent(nHwnd, UBhWnd) UBhWnd = ubHandle End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)