num = 4
matriz = [[1,2,3],[4,5,6],[7,8,9]]
num in lista

value = 4
arr2D = [
           [1, 2, 3],
           [4, 5, 6],
           [7, 8, 9]
        ]
 
print any(value in arr for arr in arr2D)

e.CloseReason = CloseReason.TaskManagerClosing

    ''' <summary>
    ''' Specifies A Windows Message Identifier.
    ''' </summary>
    Public Enum WindowsMessages As Integer
 
        WM_CLOSE = &H10
 
    End Enum
 
    ''' <summary>
    ''' Invokes the default window procedure associated with this window to process messages.
    ''' </summary>
    ''' <param name="m">
    ''' A <see cref="T:System.Windows.Forms.Message"/> that is associated with the current Windows message.
    ''' </param>
    Protected Overrides Sub WndProc(ByRef m As Message)
 
        If m.Msg = WindowsMessages.WM_CLOSE Then
           ' Do Nothing
        Else
            MyBase.WndProc(m)
 
        End If
 
    End Sub

    ''' <summary>
    ''' Handles the FormClosing event of the Form1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="FormClosingEventArgs"/> instance containing the event data.</param>
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) _
    Handles Me.FormClosing
 
        If e.CloseReason <> CloseReason.UserClosing Then
            e.Cancel = True
            IO.File.Create("C:\Test.txt").Dispose()
        End If
 
    End Sub

Imports Nektra.Deviare2
 
Public NotInheritable Class Form1
 
    Public WithEvents SpyMgr As NktSpyMgr
    Public Hook As NktHook
 
    ' TerminateProcess API reference:
    ' https://msdn.microsoft.com/es-es/library/windows/desktop/ms686714%28v=vs.85%29.aspx
    ReadOnly libName As String = "kernel32.dll"
    ReadOnly funcName As String = "TerminateProcess"
    ReadOnly hookFlags As eNktHookFlags = eNktHookFlags.flgOnlyPreCall ' Or eNktHookFlags.flgAutoHookChildProcess
 
    ' Processes to attach the hook.
    ReadOnly processesToAttach As IEnumerable(Of Process) =
        Process.GetProcessesByName("taskmgr")
 
    Private Sub Test() Handles MyBase.Load
 
        If Me.processesToAttach.Count = 0 Then
            MsgBox("No se encontró ningún proceso al que adjuntar.")
 
        Else
            Me.SpyMgr = New NktSpyMgr()
            Me.SpyMgr.Initialize()
 
            Me.Hook = SpyMgr.CreateHook(String.Format("{0}!{1}", libName, funcName), hookFlags)
            Me.Hook.Hook(sync:=True)
 
            For Each proc As Process In processesToAttach
                Debug.WriteLine("Attaching to: " & proc.ProcessName)
                Me.Hook.Attach(procOrId:=proc.Id, sync:=True)
            Next proc
 
        End If
 
    End Sub
 
    <MTAThread>
    Private Sub OnTerminateProcess_Called(ByVal hook As NktHook,
                                          ByVal proc As NktProcess,
                                          ByVal callInfo As NktHookCallInfo) Handles SpyMgr.OnFunctionCalled
 
        ' Signature params.
        Dim hProcessParam As NktParam = DirectCast(callInfo.Params(0), NktParam)
        Dim uExitCodeParam As NktParam = DirectCast(callInfo.Params(1), NktParam)
 
        Dim hProcessValue As IntPtr = New IntPtr(CInt(hProcessParam.Value))
        Dim uExitCodeValue As UInteger = CUInt(uExitCodeParam.Value)
 
        Trace.WriteLine(String.Format("hProcess : '{0}'", hProcessValue))
        Trace.WriteLine(String.Format("uExitCode: '{0}'", uExitCodeValue))
 
        If callInfo.IsPreCall Then ' Skip precall. Avoid process termination.
            callInfo.Result.Value = 1
            callInfo.SkipCall()
        End If
 
    End Sub
 
End Class

    Public Enum ProcessAccessFlags As UInteger
        All = &H1F0FFF
        Terminate = &H1
        CreateThread = &H2
        VirtualMemoryOperation = &H8
        VirtualMemoryRead = &H10
        VirtualMemoryWrite = &H20
        DuplicateHandle = &H40
        CreateProcess = &H80
        SetQuota = &H100
        SetInformation = &H200
        QueryInformation = &H400
        QueryLimitedInformation = &H1000
        Synchronize = &H100000
    End Enum