Sub StartReading()
        Dim myhandle As Long
        Dim MemCounter As Long
        Dim data As Byte
 
        myhandle = FindWindow(vbNullString, APPname.Text)
        If myhandle = 0 Then
            MsgBox("Can't get handle of window. Do you entered right window" & _
              "name ???", MsgBoxStyle.Critical, "Error 1")
            Exit Sub
        End If
 
        Dim APPprocess As Process() = Process.GetProcessesByName(APPname.Text)
 
        If APPprocess(0).Id = 0 Then
            MsgBox("Can't get process id of window.", MsgBoxStyle.Critical, _
              "Error 2")
            Exit Sub
        End If
 
        myhandle = OpenProcess(PROCESS_ALL_ACCESS, False, APPprocess(0).Id)
        If myhandle = 0 Then
            MsgBox("Can't open process.", MsgBoxStyle.Critical, "Error 3")
            Exit Sub
        End If
 
        TextBox1.Text = ""
        ProgressBar1.Maximum = Int(EndAdr.Text) - Int(StartAdr.Text)
        For MemCounter = Int(StartAdr.Text) To Int(EndAdr.Text)
            If Break = True Then
                Exit Sub
                Break = False
            End If
 
            ProgressBar1.Value = MemCounter - Int(StartAdr.Text)
 
            ReadProcessMemory(myhandle, MemCounter, data, 1, 0&)
 
            Dim errno As Integer = GetLastError()
            Dim mess As String = New System.ComponentModel.Win32Exception( _
              errno).Message
 
            MsgBox(mess)
            TextBox1.Text = TextBox1.Text & Chr(data)
            My.Application.DoEvents()
        Next MemCounter
 
    End Sub