Sobre visual basic

Errores:

Code:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Const PROCESS_ALL_ACCESS = &H1F0FF
    End Sub
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Dim MyP As Process() = Process.GetProcessesByName("S4Client")
        If MyP.Length = 0 Then
        Else
            System.Threading.Thread.Sleep(700)
            Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
            If hProcess = IntPtr.Zero Then
                MessageBox.Show("Failed to open !")
                Exit Sub
            End If
            If (CheckBox1.Checked) Then
                Dim vBuffer As Long
                vBuffer = 10
                WriteProcessMemory(hProcess, &H386938, vBuffer, vBuffer.ToString.Length, 0)
            End If
            If (CheckBox2.Checked) Then
                Dim vBuffer As Long
                vBuffer = 10
                WriteProcessMemory(hProcess, &H366F68, vBuffer, vBuffer.ToString.Length, 0)
            End If
            Application.ExitThread()
            Application.Exit()

        End If

    End Sub
End Class

alexmen10 wrote:luego añado un tutorial
cualquier libreria te puede cerrar dentro del juego saludos despues la publico saludos.