Пару ошибок Visual Basic

Доброго времени суток всем
Пишу свой первый тренер для игры в visual basic 2010.

И вот в написание кода возникли пару ошибок:



На поле находится: textbox, button, timer

Code:

Public Class Form1

    Private Property txtDisplay As String

    Private Sub Command1_Click() ' Объявляем некоторые необходимые моменты для кнопки. 
        Dim hwnd As Long ' удерживает управление, переданное функцией Find Window. 
        Dim pid As Long ' используется для хранения идентификатора процесса. 
        Dim pHandle As Long ' держит управление процессом. 
        ' Ищем окно игры и, если игра не запущена, выдаем сообщение об ошибке. 
        hwnd = FindWindow(vbNullString, "Sim City 3000")
        If (hwnd = 0) Then
            MsgBox("Window not found!")
            Exit Sub
        End If
        ' Теперь можно определить идентификатор процесса. 
        GetWindowThreadProcessId(hwnd, pid)
        ' Используем этот идентификатор для получения управления процессом. 
        pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (pHandle = 0) Then
            MsgBox("Couldn't get a process handle!")
            Exit Sub
        End If
        ' Теперь можно записать новое значение в память по нужному адресу. 
        WriteProcessMemory(pHandle, &H235B218, "Beans", 5, 0&)
        ' Прекращаем управлять процессом. 
        CloseHandle(hProcess)
    End Sub
    Private Sub ReadTimer_Timer()
        ' Объявляем некоторые необходимые моменты для таймера. 
        Dim hwnd As Long ' удерживает управление, переданное функцией FindWindow. 
        Dim pid As Long ' удерживает идентификатор процесса. 
        Dim pHandle As Long ' удерживает управление процессом. 
Dim str As String * 20 ' параметр текстовой строки. 
        ' Вначале ищем окно игры. 
        hwnd = FindWindow(vbNullString, "Sim City 3000")
        If (hwnd = 0) Then Exit Sub
        ' Теперь можно определить идентификатор процесса. 
        GetWindowThreadProcessId(hwnd, pid)
        ' Используем идентификатор для управления процессом. 
        pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (pHandle = 0) Then Exit Sub
        ' Теперь можно прочитать из памяти... 
        ReadProcessMemory(pHandle, &H235B218, str, 20, 0&)
        ' ... и показать строку в текстовом поле трейнера. 
        txtDisplay = str
        ' Прекращаем управлять процессом. 
        CloseHandle(hProcess)
    End Sub

    Private Function PROCESS_ALL_ACCESS() As Long
        Throw New NotImplementedException
    End Function

    Private Sub ReadProcessMemory(ByVal pHandle As Long, ByVal p2 As Integer, ByVal p3 As String, ByVal p4 As Integer, ByVal p5 As Long)
        Throw New NotImplementedException
    End Sub

    Private Sub ReadProcessMemory(ByVal pHandle As Long, ByVal p2 As Integer, ByVal p3 As String, ByVal p4 As Integer, ByVal p5 As Long)
        Throw New NotImplementedException
    End Sub

    Private Function Process() As Long
        Throw New NotImplementedException
    End Function

    Private Function hProcess() As Long
        Throw New NotImplementedException
    End Function

    Private Sub ReadProcessMemory(ByVal pHandle As Long, ByVal p2 As Integer, ByVal p3 As String, ByVal p4 As Integer, ByVal p5 As Long)
        Throw New NotImplementedException
    End Sub

End Class

 

ReadProcessMemory убери повторное объявление.
Часть ошибок исчезнет

 

во всех 4 строках?

 

нет весь исходник удали. Чтобы начать что-то писать для начала выучи язык.

 

у тя два раза объявляться функция readproccesmemory