Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Function FindWindowEx Lib "user32.dll" Alias _
      "FindWindowExA" _
    (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal _
    lpsz2 As String) As IntPtr
 
    Private Declare Function SetParent Lib "user32.dll" _
    (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Int32
    Private Declare Function MoveWindow Lib "user32.dll" _
    (ByVal hwnd As IntPtr, ByVal x As Int32, ByVal y As Int32, ByVal nWidth As _
    Int32, ByVal nHeight As Int32, ByVal bRepaint As Int32) As Int32
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim TrayWnd As IntPtr, TrayReBar As IntPtr, TrayToolBar As IntPtr
 
''' Als erstes die Handle der Symbolleiste rausfinden.. Name ersetzen in der 3. 
' Zeile nicht vergessen ;)
 
        TrayWnd = FindWindow("Shell_TrayWnd", vbNullString)
        TrayReBar = FindWindowEx(TrayWnd, 0, "ReBarWindow32", vbNullString)
        TrayToolBar = FindWindowEx(TrayReBar, 0, vbNullString, "WaveAnimation")
 
''' Neues Parent zuweisen und an die richtige Stelle schieben (die 0er stehen 
' für x, y)
 
        SetParent(TextBox1.Handle, TrayToolBar)
        MoveWindow(TextBox1.Handle, 0, 0, TextBox1.Width, TextBox1.Height, 1)
    End Sub