' [ MCI Player ]
'
' // By Elektro H@cker
 
#Region " Usage Examples "
 
' Dim AudioFile As New MCIPlayer("C:\Audio.wav")
' AudioFile.Play(AudioPlayMode.BackgroundLoop)
 
' Dim sb As New System.Text.StringBuilder
' sb.AppendLine("Filename: " & AudioFile.Filename)
' sb.AppendLine("State...: " & AudioFile.State.ToString)
' sb.AppendLine("Mode....: " & AudioFile.PlaybackMode.ToString)
' sb.AppendLine("Channels: " & CStr(AudioFile.Channels))
' sb.AppendLine("Duration: " & TimeSpan.FromMilliseconds(AudioFile.Duration).ToString("hh\:mm\:ss"))
 
' MessageBox.Show(sb.ToString, "MCI Player", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
' AudioFile.Stop()
 
#End Region
 
#Region " MCI Player "
 
''' <summary>
''' Play Wave, MP3 or MIDI files
''' </summary>
Public Class MCIPlayer
    Inherits NativeWindow
    Implements IDisposable
 
#Region " API "
 
    ''' <summary>
    ''' Sends a command string to an MCI device.
    ''' The device that the command is sent to is specified in the command string.
    ''' </summary>
    ''' <param name="command">
    ''' Pointer to a null-terminated string that specifies an MCI command string. 
    ''' For a list, see Multimedia Command Strings.
    ''' </param>
    ''' <param name="buffer">
    ''' Buffer that receives return information. 
    ''' If no return information is needed, this parameter can be NULL.
    ''' </param>
    ''' <param name="bufferSize">
    ''' Size, in characters, of the return buffer specified.
    ''' </param>
    ''' <param name="hwndCallback">
    ''' Handle to a callback window if the "notify" flag was specified in the command string.
    ''' </param>
    <System.Runtime.InteropServices.
    DllImport("winmm.dll", SetLastError:=True)>
    Private Shared Function mciSendString(
            ByVal command As String,
            ByVal buffer As System.Text.StringBuilder,
            ByVal bufferSize As Integer,
            ByVal hwndCallback As IntPtr
    ) As Integer
    End Function
 
#End Region
 
#Region " Variables "
 
    ''' <summary>
    ''' The form to manage Windows Messages.
    ''' </summary>
    Private WithEvents formulary As Form = Nothing
 
    ''' <summary>
    ''' Indicates the audio play command of mciSendString.
    ''' </summary>
    Private PlayCommand As String = String.Empty
 
    ''' <summary>
    ''' Buffer that receives return information.
    ''' </summary>
    Private ReturnInfo As New System.Text.StringBuilder() With {.Capacity = 255}
 
    ''' <summary>
    ''' The current filename of the file that is to be played.
    ''' </summary>
    Private _filename As String = String.Empty
 
    ''' <summary>
    ''' Indicates the current playback mode.
    ''' </summary>
    Private _PlaybackMode As AudioPlayMode
 
    ''' <summary>
    ''' Flag to cancel the BackgroundLoop PlaybackMode.
    ''' </summary>
    Private CancelLoop As Boolean = False
 
#End Region
 
#Region " Properties "
 
    ''' <summary>
    ''' The current filename of the file that is to be played.
    ''' </summary>
    Public Property Filename() As String
 
        Get
            Return _filename
        End Get
 
        Set(ByVal value As String)
 
            If Not IO.File.Exists(value) Then
                Throw New IO.FileNotFoundException
                Exit Property
            End If
 
            _filename = value
 
        End Set
 
    End Property
 
    ''' <summary>
    ''' Gets che current Playback State.
    ''' </summary>
    Public ReadOnly Property State As PlaybackState
        Get
            mciSendString("status file mode", ReturnInfo, ReturnInfo.Capacity, IntPtr.Zero)
            Return [Enum].Parse(GetType(PlaybackState), ReturnInfo.ToString, True)
        End Get
    End Property
 
    ''' <summary>
    ''' Gets or sets the playback mode of the current file.
    ''' </summary>
    Public Property PlaybackMode As AudioPlayMode
        Get
            Return _PlaybackMode
        End Get
        Set(value As AudioPlayMode)
            _PlaybackMode = value
        End Set
    End Property
 
    ''' <summary>
    ''' Gets the channels of the file.
    ''' </summary>
    ReadOnly Property Channels() As Integer
        Get
            mciSendString("status file channels", ReturnInfo, ReturnInfo.Capacity, IntPtr.Zero)
            Return If(IsNumeric(ReturnInfo.ToString),
                      CInt(ReturnInfo.ToString),
                      -1)
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the file duration in Milleseconds.
    ''' </summary>
    ReadOnly Property Duration() As Integer
        Get
            mciSendString("set file time format milliseconds", Nothing, 0, IntPtr.Zero)
            mciSendString("status file length", ReturnInfo, ReturnInfo.Capacity, IntPtr.Zero)
            Return If(String.IsNullOrEmpty(ReturnInfo.ToString), 0, CInt(ReturnInfo.ToString))
        End Get
    End Property
 
#End Region
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Audio File playback state.
    ''' </summary>
    Public Enum PlaybackState As Short
 
        ''' <summary>
        ''' File is playing.
        ''' </summary>
        Playing = 0
 
        ''' <summary>
        ''' File is paused.
        ''' </summary>
        Paused = 1
 
        ''' <summary>
        ''' File is stopped.
        ''' </summary>
        Stopped = 2
 
    End Enum
 
    ''' <summary>
    ''' Windows Message Identifiers.
    ''' </summary>
    Public Enum KnownMessages As Integer
 
        ''' <summary>
        ''' Notifies an application that an MCI device has completed an operation. 
        ''' MCI devices send this message only when the MCI_NOTIFY flag is used.
        ''' </summary>
        MM_MCINOTIFY = 953
 
    End Enum
 
#End Region
 
#Region " Constructor "
 
    ''' <summary>
    ''' Play Wave, MP3 or MIDI files.
    ''' </summary>
    ''' <param name="AudioFile">Indicates the filename of the media to play.</param>
    Public Sub New(ByVal AudioFile As String)
 
        ' Set the Audio file.
        Me.Filename = AudioFile
 
        ' Set the Formulary.
        Me.formulary = Form.ActiveForm
 
        ' Assign the form handle.
        SetFormHandle()
 
    End Sub
 
    ''' <summary>
    ''' Play Wave, MP3 or MIDI files.
    ''' </summary>
    ''' <param name="Formulary">Indicates the Form to assign the Handle.</param>
    ''' <param name="AudioFile">Indicates the filename of the media to play.</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal Formulary As Form, ByVal AudioFile As String)
 
        ' Set the Audio file.
        Me.Filename = AudioFile
 
        ' Set the Formulary.
        Me.formulary = Formulary
 
        ' Assign the form handle.
        SetFormHandle()
 
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' <summary>
    ''' Plays the file that is specified as the filename.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub Play(ByVal PlayMode As AudioPlayMode)
 
        DisposedCheck()
 
        Select Case PlayMode
 
            Case AudioPlayMode.Background
                PlayCommand = "play file from 0"
                Me.PlaybackMode = AudioPlayMode.Background
 
            Case AudioPlayMode.BackgroundLoop
                PlayCommand = "play file from 0 notify"
                Me.PlaybackMode = AudioPlayMode.BackgroundLoop
 
            Case AudioPlayMode.WaitToComplete
                PlayCommand = "play file from 0 wait"
                Me.PlaybackMode = AudioPlayMode.WaitToComplete
 
        End Select
 
        ' Open command
        Select Case Me.Filename.Split(".").LastOrDefault
 
            Case "mp3"
                mciSendString(String.Format("open ""{0}"" type mpegvideo alias file", Me.Filename),
                              Nothing,
                              0,
                              IntPtr.Zero)
 
            Case "wav"
                mciSendString(String.Format("open ""{0}"" type waveaudio alias file", Me.Filename),
                              Nothing,
                              0,
                              IntPtr.Zero)
 
            Case "mid", "midi"
                mciSendString("stop midi", Nothing, 0, 0)
                mciSendString("close midi", Nothing, 0, 0)
                mciSendString(String.Format("open sequencer! ""{0}"" alias file", Me.Filename),
                              Nothing,
                              0, IntPtr.Zero)
 
            Case Else
                Throw New Exception("File type not supported.")
                [Close]()
 
        End Select
 
        ' Play command
        mciSendString(PlayCommand, Nothing, 0, If(PlaybackMode = AudioPlayMode.BackgroundLoop,
                                                  Me.Handle,
                                                  IntPtr.Zero))
 
    End Sub
 
    ''' <summary>
    ''' Pause the current playback.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub Pause()
        DisposedCheck()
        CancelLoop = True
        mciSendString("pause file", Nothing, 0, IntPtr.Zero)
    End Sub
 
    ''' <summary>
    ''' Resume the current playback if it is currently paused.
    ''' </summary>
    Public Sub [Resume]()
        DisposedCheck()
        If Me.State = PlaybackState.Paused Then
            CancelLoop = False
            mciSendString("resume file", Nothing, 0, IntPtr.Zero)
        End If
    End Sub
 
    ''' <summary>
    ''' Stop the current playback.
    ''' </summary>
    Public Sub [Stop]()
        DisposedCheck()
        CancelLoop = True
        mciSendString("stop file", Nothing, 0, IntPtr.Zero)
    End Sub
 
    ''' <summary>
    ''' Close the current file.
    ''' </summary>
    Public Overloads Sub [Close]()
        DisposedCheck()
        CancelLoop = True
        mciSendString("close file", Nothing, 0, IntPtr.Zero)
    End Sub
 
#End Region
 
#Region " Event Handlers "
 
    ''' <summary>
    ''' Assign the handle of the target form to this NativeWindow,
    ''' necessary to override WndProc.
    ''' </summary>
    Private Sub SetFormHandle() _
    Handles formulary.HandleCreated, formulary.Load, formulary.Shown
 
        Try
            If Not Me.Handle.Equals(Me.formulary.Handle) Then
                Me.AssignHandle(Me.formulary.Handle)
            End If
        Catch ' ex As InvalidOperationException
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Releases the Handle.
    ''' </summary>
    Private Sub OnHandleDestroyed() _
    Handles formulary.HandleDestroyed
 
        Me.ReleaseHandle()
 
    End Sub
 
#End Region
 
#Region " Windows Messages "
 
    ''' <summary>
    ''' Processes Windows messages for this Window.
    ''' </summary>
    ''' <param name="m">
    ''' Contains the Windows Message parameters.
    ''' </param>
    Protected Overrides Sub WndProc(ByRef m As Message)
 
        MyBase.WndProc(m)
 
        If m.Msg = KnownMessages.MM_MCINOTIFY Then
 
            If Not CancelLoop Then
                Play(AudioPlayMode.BackgroundLoop)
            Else
                CancelLoop = False
            End If
 
        End If
 
    End Sub
 
#End Region
 
#Region " IDisposable "
 
    ''' <summary>
    ''' To detect redundant calls when disposing.
    ''' </summary>
    Private IsDisposed As Boolean = False
 
    ''' <summary>
    ''' Prevents calls to methods after disposing.
    ''' </summary>
    Private Sub DisposedCheck()
        If Me.IsDisposed Then
            Throw New ObjectDisposedException(Me.GetType().FullName)
        End If
    End Sub
 
    ''' <summary>
    ''' Disposes the objects generated by this instance.
    ''' </summary>
    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
 
    ' IDisposable
    Protected Overridable Sub Dispose(IsDisposing As Boolean)
 
        If Not Me.IsDisposed Then
 
            If IsDisposing Then
                [Close]()
                Me.formulary = Nothing
                Me.ReleaseHandle()
                Me.DestroyHandle()
            End If
 
        End If
 
        Me.IsDisposed = True
 
    End Sub
 
#End Region
 
End Class
 
#End Region

#Region " TASK Example "
 
Public Class Form1
 
    ' NORMAL TASK USAGE:
    ' ------------------
    Private Task1 As Threading.Tasks.Task
    Private Task1CTS As New Threading.CancellationTokenSource
    Private Task1CT As Threading.CancellationToken = Task1CTS.Token
 
    Private Sub MyTask1(ByVal CancellationToken As Threading.CancellationToken)
 
        For x As Integer = 0 To 9999
 
            If Not CancellationToken.IsCancellationRequested Then
                Debug.Print("Task1: " & x)
            Else
                MsgBox(String.Format("Task1 Canceled at ""{0}""", x))
                Exit Sub
            End If
 
        Next x
 
    End Sub
 
    ' ANONYMOUS TASK METHOD:
    ' ---------------------
    Private Task2 As Threading.Tasks.Task
    Private Task2CTS As New Threading.CancellationTokenSource
    Private Task2CT As Threading.CancellationToken = Task2CTS.Token
 
    Private Delegate Function Task2Delegate(ByVal CancellationToken As Threading.CancellationToken)
 
    Private MyTask2 As Task2Delegate =
      Function(CancellationToken As Threading.CancellationToken) As Boolean
 
          For x As Integer = 0 To 9999
 
              If Not CancellationToken.IsCancellationRequested Then
                  Debug.Print("Task2: " & x)
              Else
                  MsgBox(String.Format("Task2 Canceled at ""{0}""", x))
                  Return False
              End If
 
          Next x
 
          Return True
 
      End Function
 
    Private Sub TaskTest() Handles MyBase.Shown
 
        ' Run an asynchronous Task.
        Task1 = Threading.Tasks.Task.Factory.StartNew(Sub() MyTask1(Task1CT), Task1CT)
 
        ' Wait 2 seconds (Just to demonstrate this example)
        Threading.Thread.Sleep(2 * 1000)
 
        ' Cancel the Task.
        Task1CTS.Cancel()
 
        ' Wait for the Task to finish the being cancelled.
        Task1.Wait()
 
        ' Show the task status
        MsgBox(Task1.Status.ToString) ' Result: RanToCompletion
 
        ' ReStart the Task1.
        Task1 = Threading.Tasks.Task.Factory.StartNew(Sub() MyTask1(Task1CT), Task1CT)
 
        ' Start the Task2
        Task2 = Threading.Tasks.Task.Factory.StartNew(Of Boolean)(Function() MyTask2(Task2CT), Task2CT)
 
        ' Wait for both Taks to finish their execution.
        Threading.Tasks.Task.WaitAll()
 
    End Sub
 
End Class
 
#End Region

TextBoxCount += 1

TextBoxCount = 0 ' Reseteo el valor a cero

TextBoxCount = -1 ' Reseteo el valor a -1

Module Main
 
#Region " Variables "
 
    ''' <summary>
    ''' The chooseable menu items.
    ''' </summary>
    Private ReadOnly MenuItems() As String =
        {
         "[1] One",
         "[2] Two",
         "[3] Three",
         "[4] Four",
         "[H] Help",
         "[X] Exit"
        }
 
    ''' <summary>
    ''' Indicates the selected menu item.
    ''' </summary>
    Private CurrentMenuItem As Short = 0
 
    ''' <summary>
    ''' The object to read in a pressed key.
    ''' </summary>
    Private key As ConsoleKeyInfo = Nothing
 
    ''' <summary>
    ''' Indicates wether the user pressed a valid key.
    ''' </summary>
    Private ValidKeyIsPressed As Boolean = False
 
    ''' <summary>
    ''' To manage known errors.
    ''' </summary>
    Private ReadOnly KnownErrors As New Dictionary(Of Integer, String) From
    {
        {1, "Wrong parameter"},
        {2, "Parameter not specified"},
        {9999, "Unknown Error"}
    }
 
#End Region
 
#Region " Main Procedure "
 
    ''' <summary>
    ''' The main procedure of this application.
    ''' </summary>
    Public Sub Main()
        Console.Title = HelpSection.Title ' Set the Console Title.
        ShowMenu() ' Display the console menu.
        DoSomething()
        Environment.Exit(0) ' Exit succesfully.
    End Sub
 
#End Region
 
#Region " Methods "
 
    ''' <summary>
    ''' Displays the console menu.
    ''' </summary>
    Private Sub ShowMenu()
 
        ' Wait for a valid key.
        Do Until ValidKeyIsPressed
 
            ' Clear the screen.
            Console.Clear()
 
            ' Print the application Logotype.
            Write_Colored_Text(HelpSection.Logo, True, ConsoleColor.Green) ' Print the Logo.
 
            ' Print a simple help text.
            Write_Colored_Text("[+] Choose an option:", True, ConsoleColor.White)
            Console.WriteLine()
 
            ' Loop through all of the menu items to print them.
            For Each MenuItem As String In MenuItems
 
                If MenuItem = MenuItems.ElementAt(CurrentMenuItem) Then
                    Write_Colored_Text(String.Format(" -> {0}", MenuItem), True, ConsoleColor.Green)
                Else
                    Write_Colored_Text(MenuItem, True, ConsoleColor.Gray)
                End If
 
            Next MenuItem
 
            ' Waits until the user presses a key.
            key = Console.ReadKey(True)
 
            ' Process the pressed key.
            Select Case key.Key
 
                Case Keys.Down ' If the key the user pressed is a "DownArrow", the current menu item will deacrease.
                    CurrentMenuItem += 1
                    If CurrentMenuItem > MenuItems.Length - 1 Then
                        CurrentMenuItem = 0
                    End If
 
                Case Keys.Up ' If the key the user pressed is a "UpArrow", the current menu item will increase.
                    CurrentMenuItem -= 1
                    If CurrentMenuItem < 0 Then
                        CurrentMenuItem = CShort(MenuItems.Length - 1)
                    End If
 
                Case Keys.Enter ' Enter Key (Select current menu item).
                    ValidKeyIsPressed = True
 
                Case Keys.D1 To Keys.D4 ' A numeric key is pressed between 1-4. 
                    CurrentMenuItem = key.Key.ToString.Substring(1) - 1
                    ValidKeyIsPressed = True
 
                Case Keys.H ' H Key (Print Help).
                    PrintHelp()
                    ValidKeyIsPressed = True
 
                Case Keys.X ' X Key (Exit from application).
                    Environment.Exit(0)
 
            End Select
 
        Loop
 
    End Sub
 
    ''' <summary>
    ''' Do something.
    ''' </summary>
    Private Sub DoSomething()
        Console.WriteLine()
        Write_Colored_Text("User Pressed Key: " & key.Key.ToString, True, ConsoleColor.Red, ConsoleColor.White)
        Write_Colored_Text("Selected Option : " & MenuItems(CurrentMenuItem), True, ConsoleColor.Red, ConsoleColor.White)
        Write_Colored_Text("Selected Index  : " & CurrentMenuItem.ToString, True, ConsoleColor.Red, ConsoleColor.White)
        Console.ReadLine()
    End Sub
 
#End Region
 
#Region " Miscellaneous Methods "
 
    ''' <summary>
    ''' Writes colored text on the Console.
    ''' </summary>
    ''' <param name="Text">Indicates the text to write.</param>
    ''' <param name="AddNewLine">Adds an empty line at the end of the text.</param>
    ''' <param name="ForeColor">Indicates the text color.</param>
    ''' <param name="BackColor">Indicates the background color.</param>
    Private Sub Write_Colored_Text(ByVal Text As String,
                                   Optional ByVal AddNewLine As Boolean = False,
                                   Optional ByVal ForeColor As ConsoleColor = Nothing,
                                   Optional ByVal BackColor As ConsoleColor = Nothing)
 
        Dim CurrentForegroundColor As ConsoleColor = Console.ForegroundColor
        Dim CurrentBackgroundColor As ConsoleColor = Console.BackgroundColor
 
        Console.ForegroundColor = If(ForeColor = Nothing, CurrentForegroundColor, ForeColor)
        Console.BackgroundColor = If(ForeColor = Nothing, CurrentBackgroundColor, BackColor)
 
        If AddNewLine Then
            Console.WriteLine(Text)
        Else
            Console.Write(Text)
        End If
 
        Console.ForegroundColor = CurrentForegroundColor
        Console.BackgroundColor = CurrentBackgroundColor
 
    End Sub
 
    ''' <summary>
    ''' Set the window state of the console.
    ''' </summary>
    ''' <param name="WindowState">Indicates the new state of the console window.</param>
    Public Function SetWindow(ByVal WindowState As ConsoleWindowState.WindowState) As Boolean
        Return ConsoleWindowState.SetWindowState(WindowState)
    End Function
 
    ''' <summary>
    ''' Print the Help section and exits from the application.
    ''' </summary>
    Private Sub PrintHelp()
        Console.WriteLine(HelpSection.Help)
        Environment.Exit(0) ' Exit succesfully.
    End Sub
 
    ''' <summary>
    ''' Launch a known error and exits from the application.
    ''' </summary>
    ''' <param name="ErrorID">
    ''' Indicates the known Error Identifier.
    ''' This value is also used to specify the ExitCode.
    ''' </param>
    ''' <param name="MoreInfo">Indicates additional information.</param>
    Private Sub LaunchError(ByVal ErrorID As Integer, Optional ByVal MoreInfo As String = Nothing)
 
        Console.WriteLine()
        Write_Colored_Text(KnownErrors(ErrorID) &
                           If(MoreInfo IsNot Nothing, ": " & MoreInfo, Nothing),
                           True, ConsoleColor.White, ConsoleColor.DarkRed)
 
        Environment.Exit(ErrorID) ' Exit with error exitcode.
 
    End Sub
 
#End Region
 
End Module

Module Main
 
#Region " Variables "
 
    ''' <summary>
    ''' Here will be stored the commandline arguments for this application.
    ''' If DebugArguments is nothing then the normal arguments are used,
    ''' Otherwise, the custom debug arguments are used.
    ''' </summary>
    Private Arguments As IEnumerable(Of String) =
        Set_CommandLine_Arguments(<a><![CDATA[/Switch1=Value1 /Switch2="Value2"]]></a>.Value)
 
    ''' <summary>
    ''' Something.
    ''' </summary>
    Private Something As String = Nothing
 
    ''' <summary>
    ''' To manage known errors.
    ''' </summary>
    Private ReadOnly KnownErrors As New Dictionary(Of Integer, String) From
    {
        {1, "Wrong parameter"},
        {2, "Parameter not specified"},
        {9999, "Unknown Error"}
    }
 
#End Region
 
#Region " DEBUG CommandLine Arguments "
 
    ''' <summary>
    ''' Set the commandline arguments of this application for testing purposes.
    ''' </summary>
    Public Function Set_CommandLine_Arguments(Optional ByVal DebugArguments As String = Nothing) As IEnumerable(Of String)
 
#If DEBUG Then
 
    ' Código eliminado porque el foro tiene un bug al parsear los caracteres...
 
    End Function
 
#End Region
 
#Region " Main Procedure "
 
    ''' <summary>
    ''' The main procedure of this application.
    ''' </summary>
    Public Sub Main()
        Console.Title = HelpSection.Title ' Set the Console Title.
        Write_Colored_Text(HelpSection.Logo, True, ConsoleColor.Green) ' Print the Logo.
        Write_Colored_Text("Arguments: " & Join_Arguments(Arguments), True, ConsoleColor.DarkGray) ' Print the Arguments.
        Parse_Arguments() ' Processes the arguments passed to the application.
        DoSomething() ' Do Something and wait.
        Environment.Exit(0) ' Exit succesfully.
    End Sub
 
#End Region
 
#Region " Methods "
 
    ''' <summary>
    ''' Parses the Arguments passed to this application.
    ''' </summary>
    Private Sub Parse_Arguments()
 
        ' Arguments Are Empty?.
        If Arguments_Are_Empty(Arguments) Then
            PrintHelp()
        End If
 
        ' Parse arguments.
        For Each Argument As String In Arguments
 
            Select Case True
 
                Case Argument.StartsWith("/Switch1=", StringComparison.InvariantCultureIgnoreCase)
                    ' Something = Argument.Substring(Argument.IndexOf("=") + 1)
 
            End Select
 
        Next Argument
 
        If Something Is Nothing Then
            LaunchError(1, "/Switch1")
        End If
 
    End Sub
 
    ''' <summary>
    ''' Do something and wait.
    ''' </summary>
    Private Sub DoSomething()
 
        Do Until Something = "Something Else"
            Application.DoEvents()
        Loop
 
    End Sub
 
#End Region
 
#Region " Miscellaneous Methods "
 
    ''' <summary>
    ''' Check if the arguments are empty.
    ''' </summary>
    ''' <param name="DebugArguments">Indicates a custom arguments to check.</param>
    Private Function Arguments_Are_Empty(Optional ByVal DebugArguments As IEnumerable(Of String) = Nothing) As Boolean
 
        Return Not Convert.ToBoolean(If(DebugArguments IsNot Nothing,
                                        DebugArguments.Count,
                                        Environment.GetCommandLineArgs.Skip(1).Count))
 
    End Function
 
    ''' <summary>
    ''' Joins the Arguments to return a single String.
    ''' </summary>
    ''' <param name="DebugArguments">Indicates a custom arguments to join.</param>
    Private Function Join_Arguments(Optional ByVal DebugArguments As IEnumerable(Of String) = Nothing) As String
 
        Return String.Join(Convert.ToChar(Keys.Space),
                           If(DebugArguments IsNot Nothing,
                              DebugArguments,
                              Environment.GetCommandLineArgs.Skip(1)))
 
    End Function
 
    ''' <summary>
    ''' Writes colored text on the Console.
    ''' </summary>
    ''' <param name="Text">Indicates the text to write.</param>
    ''' <param name="AddNewLine">Adds an empty line at the end of the text.</param>
    ''' <param name="ForeColor">Indicates the text color.</param>
    ''' <param name="BackColor">Indicates the background color.</param>
    Private Sub Write_Colored_Text(ByVal Text As String,
                                   Optional ByVal AddNewLine As Boolean = False,
                                   Optional ByVal ForeColor As ConsoleColor = Nothing,
                                   Optional ByVal BackColor As ConsoleColor = Nothing)
 
        Console.ForegroundColor = If(ForeColor = Nothing, Console.ForegroundColor, ForeColor)
        Console.BackgroundColor = If(ForeColor = Nothing, Console.BackgroundColor, BackColor)
 
        If AddNewLine Then
            Console.WriteLine(Text)
        Else
            Console.Write(Text)
        End If
 
        Console.ForegroundColor = If(ForeColor = Nothing, Console.ForegroundColor, ForeColor)
        Console.BackgroundColor = If(ForeColor = Nothing, Console.BackgroundColor, BackColor)
 
    End Sub
 
    ''' <summary>
    ''' Set the window state of the console.
    ''' </summary>
    ''' <param name="WindowState">Indicates the new state of the console window.</param>
    Public Function SetWindow(ByVal WindowState As ConsoleWindowState.WindowState) As Boolean
        Return ConsoleWindowState.SetWindowState(WindowState)
    End Function
 
    ''' <summary>
    ''' Print the Help section and exits from the application.
    ''' </summary>
    Private Sub PrintHelp()
        Console.WriteLine(HelpSection.Help)
        Environment.Exit(0) ' Exit succesfully.
    End Sub
 
    ''' <summary>
    ''' Launch a known error and exits from the application.
    ''' </summary>
    ''' <param name="ErrorID">
    ''' Indicates the known Error Identifier.
    ''' This value is also used to specify the ExitCode.
    ''' </param>
    ''' <param name="MoreInfo">Indicates additional information.</param>
    Private Sub LaunchError(ByVal ErrorID As Integer, Optional ByVal MoreInfo As String = Nothing)
 
        Console.WriteLine()
        Write_Colored_Text(KnownErrors(ErrorID) &
                           If(MoreInfo IsNot Nothing, ": " & MoreInfo, Nothing),
                           True, ConsoleColor.White, ConsoleColor.DarkRed)
 
        Environment.Exit(ErrorID) ' Exit with error exitcode.
 
    End Sub
 
#End Region
 
#Region " Event Handlers "
 
    ' Add here your EventHandlers.
 
#End Region
 
End Module

 
       Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3) : Array.Sort(Result4) : Array.Sort(Result5) : Array.Sort(Result6)  ' Ordeno los Items
       ' ----------------------------------------------------------------------------
       ' aca que no salgan repetidos en las lineas -------------------------------------
       ' Concateno todos los Arrays (esto es algo opcional, simplemente para hacerlo de una en este ejemplo)
       Dim Results As IEnumerable(Of Integer) =
           Result1.Concat(Result2).Concat(Result3).Concat(Result4)
 
       For X As Integer = 0 To Results.Count - 1
 
 
 
           TextBoxCount += 1
 
           Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
 
               Case False ' El número no está repetido en ninguna "linea"
                   ' Así que colocamos el número en el Textbox
                   TextBox(TextBoxCount).Text = Convert.ToString(Results(X))
 
               Case True ' El número está repetido en alguna de las "lineas"
                   ' Así que haces lo que quieras con el Número/Textbox
                   MsgBox(Results(X))
                   TextBox(TextBoxCount).Text = -1.ToString
 
           End Select
       Next X
       ' -----------------------------------------------------------------------
 
       ' aca vamos con el rango
 
       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBoxes(TextBoxCount).Text = Number
       Next
       ' -----------------------------------------
       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBoxes(TextBoxCount).Text = Number
       Next
       ' -----------------------------------------
       For Each Number As Int32 In Result3
 
           TextBoxCount += 1
 
           If Not Number > maximum Then
               TextBoxes(TextBoxCount).Text = CStr(Number)
           Else
               TextBoxes(TextBoxCount).Text = CStr(maximum)
           End If
 
       Next Number
       ' -----------------------------------------
       For Each Number As Int32 In Result4
 
           TextBoxCount += 1
 
           If Not Number > maximum Then
               TextBoxes(TextBoxCount).Text = CStr(Number)
           Else
               TextBoxes(TextBoxCount).Text = CStr(maximum)
           End If
 
       Next Number
       ' -----------------------------------------

 
        Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)
        Array.Sort(Result4) : Array.Sort(Result5) : Array.Sort(Result6)  ' Ordeno los Items
 
        TextBoxCount = 0 ' Reseteo el valor a cero
 
        Dim Results As IEnumerable(Of Integer) =
            Result1.Concat(Result2).Concat(Result3).Concat(Result4) ' concateno arrays
 
        If Results.Count > TextBoxes.Count Then
            Throw New Exception("La cantidad de números es mayor que la cantidad de Textboxes")
        End If
 
        For X As Integer = 0 To Results.Count - 1
 
            TextBoxCount += 1
 
            Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
 
                Case False ' El número no está repetido en ninguna "linea"
                    ' Así que colocamos el número en el Textbox
                    Try
                        TextBoxes(TextBoxCount).Text = CStr(Results(X))
                    Catch ex As Exception
                        Throw New Exception(ex.Message & ex.StackTrace)
                    End Try
 
                Case True ' El número está repetido en alguna de las "lineas"
                    ' Así que escribimos el número "máximo" en el textbox
                    TextBoxes(TextBoxCount).Text = -CStr(maximum)
 
            End Select
 
        Next X