Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.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)
        Dim res As Integer = (SetWindowPos(wnd, 0, 0, 0, 60, 25, 0))
        Debug.WriteLine(res)
    End Sub
 
    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
 
    Declare Function SetWindowPos Lib "user32.dll" ( _
        ByVal hwnd As Int32, _
        ByVal hWndInsertAfter As Int32, _
        ByVal x As Int32, _
        ByVal y As Int32, _
        ByVal cx As Int32, _
        ByVal cy As Int32, _
        ByVal wFlags As Int32) As Int32
 
    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