Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim f As New Form
        f.BackColor = Color.White
        f.Opacity = 0.5
        f.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        f.Location = Me.Location
        f.Show()
    End Sub
End Class