Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Int32
    Declare Function GetWindow Lib "user32.dll" ( _
    ByVal hwnd As Int32, _
    ByVal wCmd As Int32) As Int32
    Private Const GW_CHILD As Integer = 5
    Private Const WM_SETTEXT As Integer = &HC
    Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
    ByVal hwnd As Int32, _
    ByVal wMsg As Int32, _
    ByVal wParam As Int32, _
    ByVal lParam As System.Text.StringBuilder) As Int32
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button8.Click
        Dim wnd As Integer
        wnd = FindWindow("Shell_TrayWnd", "")
        wnd = GetWindow(wnd, GW_CHILD)
        Dim s As New System.Text.StringBuilder(4)
        s.Append("Hello" + ControlChars.NullChar)
        SendMessage(wnd, WM_SETTEXT, 1, s)
    End Sub

Declare Function SetParent Lib "user32.dll" ( _ 
	 ByVal hWndChild As Int32, _ 
	 ByVal hWndNewParent As Int32) As Int32