Dim wnd As Integer
        wnd = FindWindow("Shell_TrayWnd", "")
        Dim b As New Button
        b.Text = "My Start"
        b.Size = New Size(55, 23)
        b.Location = New Point(0, 23)
        Me.SetParent(b.Handle.ToInt32, wnd)