Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

    Public Declare Function SetParent Lib "user32" Alias "SetParent" _
    (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Dim hDeskTop As IntPtr = FindWindow("Progman", "Program Manager")
      SetParent(Me.Handle, hDeskTop)
    End Sub