.NET [SRC] Killing [BSOD] Protected Processes njfix

Code 
Imports System.Runtime.InteropServices

Module DPProcessKiller

    <DllImport("ntdll")> _

    Private Function NtSetInformationProcess(ByVal hProcess As IntPtr, ByVal processInformationClass As Integer, ByRef processInformation As Integer, ByVal processInformationLength As Integer) As Integer

    End Function

    Sub Main()

        Try

            Process.EnterDebugMode()

        Catch ex As Exception

            Environment.Exit(0)

        End Try

        Console.WriteLine("Dev-Point Protected Process Killer | By Simon-Benyo")

a:

        Console.WriteLine()

        Console.Write("Please Enter Process Name (Without .exe) : ")

        Dim s As Integer = 0

        Dim ProcessPriorityClass As Integer = 29

        Dim lpProcessName As String = Console.ReadLine()

        For Each x As Process In Process.GetProcessesByName(lpProcessName)

            If NtSetInformationProcess(x.Handle, ProcessPriorityClass, s, Marshal.SizeOf(s)) = 0 Then

                x.Kill()

                Console.WriteLine("Killed :)")

            End If

        Next

        GoTo a

    End Sub

End Module