Public Class frmCopyScreen
 
    Dim WithEvents pb As New PictureBox With {.Parent = Me}
 
    Dim bmp As Bitmap
 
    Private Sub frmCopyScreen_Click(sender As Object, _
        e As System.EventArgs) Handles pb.Click
        copyscreen()
    End Sub
 
    Private Sub frmCopyScreen_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.MaximizeBox = False
        pb.Location = New Point(0, 0)
        pb.Size = Me.ClientRectangle.Size
        copyscreen()
    End Sub
 
    Private Sub frmCopyScreen_Move(sender As Object, _
        e As System.EventArgs) Handles Me.Move
        copyscreen()
    End Sub
 
    Private Sub frmCopyScreen_ResizeEnd(sender As Object, _
        e As System.EventArgs) Handles Me.ResizeEnd
        pb.Size = Me.ClientRectangle.Size
        copyscreen()
    End Sub
 
    Private Sub copyscreen()
 
        If bmp IsNot Nothing Then
            bmp.Dispose() : bmp = Nothing
        End If
        bmp = New Bitmap(pb.Width, pb.Height)
        Using G As Graphics = Graphics.FromImage(bmp)
            Me.Visible = False
            Threading.Thread.Sleep(100)
            G.CopyFromScreen _
            (PointToScreen(Me.ClientRectangle.Location), _
             New Point(0, 0), pb.Size)
            Me.Visible = True
            pb.Image = bmp
        End Using
    End Sub
End Class