Sub PicBox(ByVal frm As Form)
        Dim P As New PictureBox
        With P
            .Visible = True
            .Dock = DockStyle.Fill
            .BackColor = Color.Black
        End With
        frm.Controls.Add(P)
        frm.Refresh
End Sub