Как создать критический процесс в vb .NET?

Imports System.Diagnostics
Imports System.Runtime.InteropServices
Class Form1
    <DllImport("ntdll")> _
    Private Shared Function NtSetInformationProcess(ByVal p As IntPtr, ByVal c As Integer, ByRef i As Integer, ByVal l As Integer) As Integer
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As Process = Process.GetCurrentProcess()
        Dim g As Integer = 1
        NtSetInformationProcess(p.Handle, 29, g, 4)
        p.Kill()
    End Sub
End Class