Public Class Form1
 
    Private b As Button
    Private bf As Form
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0.5
        b = New Button
        bf = New Form
        b.Parent = bf
        bf.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        bf.Location = New Point(10, 10)
        bf.Show(Me)
    End Sub
 
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Shown
        bf.Size = b.Size
    End Sub
End Class