Как сделать скрин формы?

        Dim BM As New Bitmap(Me.Bounds.Width, Me.Bounds.Height)
        Dim G As Graphics = Graphics.FromImage(BM)
        G.CopyFromScreen(Me.Bounds.X, Me.Bounds.Y, 0, 0, Me.Bounds.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.BackgroundImage = BM

Public Class Form1
#Region "API"
    <System.Runtime.InteropServices.DllImport("User32.dll", SetLastError:=True)> _
Private Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As Boolean
    End Function
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
 Private Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function
    Public Structure RECT
        Public Left As Integer     '  // x position of upper-left corner
        Public Top As Integer     ' // y position of upper-left corner
        Public Right As Integer   ' // x position of lower-right corner
        Public Bottom As Integer '   // y position of lower-right corner
    End Structure
    Private Function GetPlacement(ByVal ind As IntPtr)
        Dim rect As New RECT
        GetWindowRect(ind, rect)
        Return rect
    End Function
#End Region
 
    Private Function fotka(ByVal id As IntPtr) As Bitmap
        Dim place As RECT = GetPlacement(id)
        If place.Left > -30000 Then
            Dim s As Size = Screen.PrimaryScreen.Bounds.Size
            Dim point As System.Drawing.Rectangle = New System.Drawing.Rectangle(0, 0, place.Right - place.Left, place.Bottom - place.Top)
            Dim g As Graphics = Me.CreateGraphics()
            Dim bmp As New Bitmap(point.Width - point.X, point.Height - point.Y, g)
            Dim memoryGraphics As Graphics = Graphics.FromImage(bmp)
            Dim dc As IntPtr = memoryGraphics.GetHdc()
            If PrintWindow(id, dc, 0) = True Then
                memoryGraphics.ReleaseHdc(dc)
                Return bmp
            Else
                Return Nothing
            End If
        Else
            Return Nothing
        End If
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.Image = fotka(Me.Handle)
    End Sub
End Class

Public Class frmВыход
    '
    'ВСТАВИТЬ ЭТОТ КОД В ПРОЦЕДУРУ FormClosing ОСНОВНОЙ ФОРМЫ ПРОГРАММЫ:
    '
    'With frmВыход
    '    If Not .Выход Then .Показать()
    '    e.Cancel = Not .Выход
    'End With
    '
 
    Public MainForm As Form = frmMain 'основная форма программы
 
    Public Выход As Boolean = False
 
    Dim F As Form
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Выход = False : Me.Hide() : Me.Close()
 
        'вызов процедуры смены пользователя
        frmЗаказы.СменитьПользователяToolStripMenuItem_Click(Nothing, Nothing)
    End Sub
 
    Private Sub frmВыход_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        If Not F Is Nothing Then
            If F.Created Then
                F.Close() : F.Dispose()
            End If
        End If
    End Sub
 
    Private Sub frmВыход_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'активация основной формы во избежание мерцания
        With MainForm
            If .Created Then
                .Select() : .Activate()
            End If
        End With
    End Sub
 
    Private Sub frmВыход_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button3.Select()
    End Sub
 
    Private Sub frmВыход_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
        If Not F Is Nothing Then
            If F.Created Then
                F.Visible = Me.Visible
            End If
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Выход = True : frmMain.Close()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Выход = False : Me.Close()
    End Sub
 
    Public Sub Показать()
        Dim Img As Bitmap
 
        With MainForm.Bounds
            Img = New Bitmap(.Width, .Height)
            Graphics.FromImage(Img).CopyFromScreen(.X, .Y, 0, 0, .Size, CopyPixelOperation.SourceCopy)
        End With
 
 
        Dim c As Color, Gray As Byte
 
        With Img
            For x As Integer = 0 To .Width - 1
                For y As Integer = 0 To .Height - 1
                    c = .GetPixel(x, y)
 
                    Gray = 0.3 * c.R + 0.59 * c.G + 0.11 * c.B
 
                    c = Color.FromArgb(Gray, Gray, Gray)
                    .SetPixel(x, y, c)
                Next
            Next
        End With
 
 
        F = New Form
 
        AddHandler F.Activated, AddressOf F_Activate
 
        With F
            .StartPosition = FormStartPosition.Manual
            .Bounds = MainForm.Bounds
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            .ShowInTaskbar = False
 
            .BackgroundImage = Img
 
            .Opacity = 0
            .ShowDialog(MainForm)
        End With
    End Sub
 
    Private Sub F_Activate(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Enabled = True
        Me.ShowDialog()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        With F
            .Opacity = .Opacity + 0.01
            Application.DoEvents()
 
            If .Opacity = 1 Then Timer1.Enabled = False
        End With
    End Sub
End Class

Dim BM As New Bitmap(Me.Bounds.Width, Me.Bounds.Height)
Dim G As Graphics = Graphics.FromImage(BM)
G.CopyFromScreen(Me.Bounds.X, Me.Bounds.Y, 0, 0, Me.Bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.BackgroundImage = BM