Dim col As IEnumerable(Of Integer) = {1, 2, 3, 4, 5}
Dim minColCount As Integer = 10
Dim minRandValue As Integer = 1
Dim maxRandValue As Integer = 10
Dim rand As Random = New Random
 
If col.Count < minColCount Then
 
    Dim randCol As IEnumerable(Of Integer) =
        From value As Integer In Enumerable.Range(minRandValue, maxRandValue)
        Order By rand.Next
        Where Not col.Contains(value)
        Take (minColCount - col.Count)
 
    col = Enumerable.Concat(col, randCol.ToArray)
 
End If
 
Debug.WriteLine(String.Join("; ", col))

    ''' <summary>
    ''' Handles the DragEnter event of the Textbox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="System.Windows.Forms.DragEventArgs"/> instance containing the event data.</param>
    Private Sub Textbox1_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles TextBox1.DragEnter
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) AndAlso
           DirectCast(e.Data.GetData(DataFormats.FileDrop), IEnumerable(Of String)).
                      All(Function(path As String) IO.File.GetAttributes(path).HasFlag(IO.FileAttributes.Archive)) Then
 
            e.Effect = DragDropEffects.All
 
        Else
            e.Effect = DragDropEffects.None
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Handles the DragDrop event of the Textbox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="DragEventArgs"/> instance containing the event data.</param>
    Private Sub Textbox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles TextBox1.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
 
            Dim paths As IEnumerable(Of String) =
               From path As String In DirectCast(e.Data.GetData(DataFormats.FileDrop), IEnumerable(Of String))
               Order By path Ascending
 
            Me.TextBox1.Text = String.Join("; ", paths)
 
        End If
 
    End Sub

/// <summary>
/// Handles the DragEnter event of the Textbox1 control.
/// </summary>
/// <param name="sender">The source of the event.</param>
/// <param name="e">The <see cref="System.Windows.Forms.DragEventArgs"/> instance containing the event data.</param>
private void Textbox1_DragEnter(object sender, DragEventArgs e)
{
	if (e.Data.GetDataPresent(DataFormats.FileDrop) && ((IEnumerable<string>)e.Data.GetData(DataFormats.FileDrop)).All((string path) => IO.File.GetAttributes(path).HasFlag(IO.FileAttributes.Archive))) {
 
		e.Effect = DragDropEffects.All;
 
	} else {
		e.Effect = DragDropEffects.None;
	}
}
 
/// <summary>
/// Handles the DragDrop event of the Textbox1 control.
/// </summary>
/// <param name="sender">The source of the event.</param>
/// <param name="e">The <see cref="DragEventArgs"/> instance containing the event data.</param>
private void Textbox1_DragDrop(object sender, DragEventArgs e)
{
	if (e.Data.GetDataPresent(DataFormats.FileDrop)) {
 
		IEnumerable<string> paths = from path in (IEnumerable<string>)e.Data.GetData(DataFormats.FileDrop) orderby path ascending;
		this.TextBox1.Text = string.Join("; ", paths);
	}
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

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