Resume\Suspend Process VB.Net

Public Class Form1
    Public Enum ThreadAccess As Integer
        TERMINATE = (&H1)
        SUSPEND_RESUME = (&H2)
        GET_CONTEXT = (&H8)
        SET_CONTEXT = (&H10)
        SET_INFORMATION = (&H20)
        QUERY_INFORMATION = (&H40)
        SET_THREAD_TOKEN = (&H80)
        IMPERSONATE = (&H100)
        DIRECT_IMPERSONATION = (&H200)
    End Enum

    Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
    Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
    Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean

    Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
        For Each xThread As ProcessThread In process.Threads
            Dim Opened_Thread As IntPtr
            Opened_Thread = OpenThread(ThreadAccess.SUSPEND_RESUME, False, xThread.Id)
            If Opened_Thread <> IntPtr.Zero Then
                SuspendThread(Opened_Thread)
                CloseHandle(Opened_Thread)
            End If
        Next
    End Sub

    Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
        For Each xThread As ProcessThread In process.Threads
            Dim Opened_Thread As IntPtr
            Opened_Thread = OpenThread(ThreadAccess.SUSPEND_RESUME, False, xThread.Id)
            If Opened_Thread <> IntPtr.Zero Then
                ResumeThread(Opened_Thread)
                CloseHandle(Opened_Thread)
            End If
        Next
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Process.EnterDebugMode()
        Dim Prog As Process = Process.Start("C:\Program Files (x86)\IObit\Driver Booster\4.1.0\DriverBooster.exe")
        SuspendProcess(Prog)
        WriteProcessMemory(Prog.Handle, New IntPtr(&H5AF143), New Byte() {&H75}, 1, 0)
        WriteProcessMemory(Prog.Handle, New IntPtr(&H5AF149), New Byte() {&H84}, 1, 0)
        ResumeProcess(Prog)
        End
    End Sub
End Class