Скриншот окна стороннего приложения

Imports System.IO
Imports System.Security.Cryptography
 
Public Class Form1
 
    Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    Dim q As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
    Dim ScreenSize As Size = New Size(10, 10)
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
screen()
 End Sub
 
Private Sub screen()
 
 Dim index As Integer = 0
        While index < 1000000
            index += 1
            Me.Visible = False
            q.CopyFromScreen(1250, 20, 1260, 30, ScreenSize)
            Me.Visible = True
 End While
 End Sub

If My.Computer.FileSystem.DirectoryExists("C:\Program Files\Adobe\Adobe Photoshop CS5 (64 Bit)") Then
            x8664 = "C:\Program Files\Adobe\Adobe Photoshop CS5 (64 Bit)\Photoshop.exe"
        End If
 
        If My.Computer.FileSystem.DirectoryExists("C:\Program Files\Adobe\Adobe Photoshop CS5") Then
            x8664 = "C:\Program Files\Adobe\Adobe Photoshop CS5\Photoshop.exe"
        End If

Using stream As Stream = File.OpenRead(Application.StartupPath & "\2.bmp")
            hashCode = MD5.Create.ComputeHash(stream)
        End Using
        hash2 = hashCode

Private Sub screen()
        Dim index As Integer = 0
        While index < 1000000
            index += 1
            q.CopyFromScreen(7, 211, 35, 515, ScreenSize)
            screenGrab.Save(Application.StartupPath & "\Screen.bmp")
            Using stream As Stream = File.OpenRead(Application.StartupPath & "\Screen.bmp")
                Form1.hashCode = MD5.Create.ComputeHash(stream)
            End Using
            Form1.hashFile = Form1.hashCode
            If Form1.hashFile(1) <> Form1.hash2(1) Then
                Form1.PsID = Shell(Form1.x8664, AppWinStyle.NormalFocus)
                System.Threading.Thread.Sleep(200)
                SendKeys.SendWait("+{F}") ' фото на весь экран
                System.Threading.Thread.Sleep(700)
                Continue While
            End If
            If Form1.hashFile(1) = Form1.hash2(1) Then
                Exit While
            End If
        End While
 
    End Sub

Public Class Form1
    Public Declare Function PrintWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As Boolean
    Public Declare Auto Function GetWindowInfo Lib "user32" (ByVal hwnd As IntPtr, ByRef pwi As WINDOWINFO) As Boolean
 
    <System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)> Structure WINDOWINFO
        Dim cbSize As Integer
        Dim rcWindow As Rectangle
        Dim rcClient As Rectangle
        Dim dwStyle As Integer
        Dim dwExStyle As Integer
        Dim dwWindowStatus As UInt32
        Dim cxWindowBorders As UInt32
        Dim cyWindowBorders As UInt32
        Dim atomWindowType As UInt16
        Dim wCreatorVersion As Short
    End Structure
 
    Public Function GetScreenCustomWindow(HWND As Integer) As Image
 
        Dim info As New WINDOWINFO : GetWindowInfo(HWND, info)
 
        Dim bmp As New Bitmap(info.rcWindow.Width, info.rcWindow.Height)
        Using g As Graphics = Graphics.FromImage(bmp)
            Dim dc = g.GetHdc()
            PrintWindow(HWND, dc, 0)
            Return bmp
        End Using
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.BackgroundImage = GetScreenCustomWindow(Me.Handle)
    End Sub
End Class