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
    Declare Function SetParent Lib "user32.dll" ( _
    ByVal hWndChild As Int32, _
    ByVal hWndNewParent As Int32) As Int32
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button9.Click
        Dim wnd As Integer
        wnd = FindWindow("Shell_TrayWnd", "")
        wnd = GetWindow(wnd, GW_CHILD)
        Dim b As New Button
        b.Text = "My Start"
        '// b.Size = New Size(b.Size.Width / 2, b.Size.Height)
        b.Location = New Point(0, 0)
        Me.SetParent(b.Handle.ToInt32, wnd)
    End Sub