'Deklarationen
Private Declare Function GetWindowLong Lib "user32" _
 Alias "GetWindowLongA" (ByVal hWnd As Long, _
 ByVal nIndex As Long) As Long
Private Declare Function SetParent Lib "user32" _
 (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
 Alias "SetWindowLongA" (ByVal hWnd As Long, _
 ByVal nIndex As Long, ByVal dwNewLong As Any) As Long
Private Const GWL_USERDATA = (-21)
 
'Programmaufruf:
 
Private Sub Vatersetzung()
   Dim lRet As Long
   lRet = K1_functions.SetParentEx(Hauptformular.hWnd, Countdown.hWnd)
  Countdown.Show vbModeless
End Sub
 
Private Sub Vatersetzungretour()
  Dim lRet As Long
  lRet = K1_functions.SetParentEx(Hauptformular.hWnd, Countdown.hWnd)
 
End Sub
 
''Funktionen Setzen und wieder löschen
 
Public Function SetParentEx(ByVal ChildWnd As Long, _
  ByVal NewParentWnd As Long) As Long
 
  Dim nOldParentWnd As Long
  Dim nUserData As Long
 
  nOldParentWnd = SetParent(ChildWnd, NewParentWnd)
  nUserData = GetWindowLong(ChildWnd, GWL_USERDATA)
  If nUserData = 0 Then
     SetWindowLong ChildWnd, GWL_USERDATA, nOldParentWnd
  Else
     SetParentEx = nOldParentWnd
  End If
End Function
 
Public Function ResetParent(ByVal ChildWnd As Long, _
 Optional ByVal OldParentWnd As Long) As Boolean
 
  Dim nOldParentWnd As Long
 
  If OldParentWnd > 0 Then
    nOldParentWnd = OldParentWnd
  Else
    nOldParentWnd = GetWindowLong(ChildWnd, GWL_USERDATA)
    SetWindowLong ChildWnd, GWL_USERDATA, 0&
  End If
  If nOldParentWnd Then
    SetParent ChildWnd, nOldParentWnd
  Else
    ResetParent = True
  End If
End Function