'Die Definitionen der API-Funktionen GetDesktopWindow, FindWindowEx und 
' SetParent gibts bei pinvoke.net 
 
'Speichern des Desktophandles um das geklaute Fenster ggf. wieder zurück zu 
' geben 
Dim hDesktop As IntPtr = GetDesktopWindow() 
 
'Das Zielfenster Suchen (bspw. über Name oder man hat das Handle schon...)
Dim targetWinHandle As IntPtr = FindWindowEx(....)
 
'Handle des eigenen Fensters suchen (in dem Fall über den Titel)
Dim myOwnWinHandle As IntPtr = FindWindow(Nothing, Me.Text)
 
'Zielfenster einfangen
SetParent(targetWinHandle, myOwnWinHandle)
 
'Wenn man die eigene Anwendung beendet, sollte man ggf. sowas für alle geklauten
'Fenster einbauen, sonst sind sie weg ==> Gefangene Fenster freigeben
SetParent(targetWinHandle, hDesktop)