Public Class Form1
    Private hwnd As IntPtr = GetDeskTopWindow
    Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal _
      hWndNewParent As IntPtr) As IntPtr
    Declare Auto Function GetDeskTopWindow Lib "user32" Alias _
    "GetDesktopWindow" () As IntPtr
    Private WithEvents Btn As New Button With {.Text = "MyButton", .Bounds = _
    New Rectangle(100, 100, 80, 40)}
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.CenterToScreen()
        SetParent(Btn.Handle, hwnd)
    End Sub
 
    Private Sub Btn_Click(sender As Object, e As System.EventArgs) Handles _
      Btn.Click
        MessageBox.Show("Hallo!")
    End Sub
End Class