Dim rv As New formRV

        rv.link = lvPasta.SelectedItems(0).ImageKey
        rv.FormBorderStyle = FormBorderStyle.None
        rv.Dock = DockStyle.Fill
        rv.TopLevel = False


        Dim p As New Panel
        With p
            Size = New Size(Me.Width, Me.Height)
            Location = New Point(Me.Location.X, Me.Location.Y)
        End With


        Me.Controls.Add(p)
        p.BringToFront()

        p.Controls.Add(rv)

        p.Show()
        rv.Show()