''' <summary>
    ''' Stores specific pixel information of an image.
    ''' </summary>
    Friend Class PixelData
 
        ''' <summary>
        ''' Gets or sets the pixel index.
        ''' </summary>
        ''' <value>The pixel index.</value>
        Public Property Index As Integer
 
        ''' <summary>
        ''' Gets or sets the pixel color.
        ''' </summary>
        ''' <value>The pixel color.</value>
        Public Property Color As Color
 
        ''' <summary>
        ''' Gets or sets the pixel coordinates relative to the image.
        ''' </summary>
        ''' <value>The pixel coordinates.</value>
        Public Property Coordinates As Point
 
    End Class
 
    ''' <summary>
    ''' Returns a <c>'PixelData'</c> object containing information about each pixel of an image.
    ''' </summary>
    ''' <param name="bmp">Indicates the Bitmap image to process.</param>
    ''' <returns>List(Of PixelData).</returns>
    ''' <exception cref="System.Exception">PixelFormat unsupported.</exception>
    Friend Function GetPixelData(ByVal bmp As Bitmap) As List(Of PixelData)
 
        If Not bmp.PixelFormat = Imaging.PixelFormat.Format24bppRgb Then
            Throw New Exception("PixelFormat unsupported.")
        End If
 
        ' Lock the Bitmap bits.
        Dim bmpRect As New Rectangle(0, 0, bmp.Width, bmp.Height)
        Dim bmpData As Drawing.Imaging.BitmapData =
            bmp.LockBits(bmpRect, Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat)
 
        ' Get the address of the first line.
        Dim Pointer As IntPtr = bmpData.Scan0
 
        ' Hold the bytes of the bitmap into a Byte-Array.
        ' NOTE: This code is specific to a bitmap with 24 bits per pixels.
        Dim bmpBytes As Integer = (Math.Abs(bmpData.Stride) * bmpRect.Height)
        Dim rgbData(bmpBytes - 1) As Byte
 
        ' Copy the RGB values into the array.
        Runtime.InteropServices.Marshal.Copy(Pointer, rgbData, 0, bmpBytes)
 
        ' Unlock the Bitmap bits.
        bmp.UnlockBits(bmpData)
 
        ' Instance the object to return.
        Dim Pixels As New List(Of PixelData)
 
        ' Loop through each 24bpp-RGB value.
        For rgbIndex As Integer = 2 To rgbData.Length - 1 Step 3
 
            ' Get the pixel values.
            Dim PixelIndex As Integer = rgbIndex \ 3I
            Dim PixelCoordX As Integer = PixelIndex Mod bmpRect.Width
            Dim PixelCoordY As Integer = (PixelIndex - PixelCoordX) \ bmpRect.Width
            Dim PixelColorR As Short = rgbData(rgbIndex)
            Dim PixelColorG As Short = rgbData(rgbIndex - 1I)
            Dim PixelColorB As Short = rgbData(rgbIndex - 2I)
 
            ' Set the pixel Data.
            Dim Pixel As New PixelData
            With Pixel
                .Index = PixelIndex
                .Color = Color.FromArgb(PixelColorR, PixelColorG, PixelColorB)
                .Coordinates = New Point(PixelCoordX, PixelCoordY)
            End With
 
            ' Add the PixelData into the list.
            Pixels.Add(Pixel)
 
        Next rgbIndex
 
        Return Pixels
 
    End Function

    Public Sub Test() Handles Button1.Click
 
        ' Create a new bitmap. 
        Dim bmp As Bitmap = Bitmap.FromFile("Imagen de la pantalla.bmp", False)
 
        ' Specify the RGB PixelColor to search.
        Dim FindColor As Color = Color.FromArgb(255, 174, 201)
 
        ' Get the pixel data.
        Dim Pixels As List(Of PixelData) = Me.GetPixelData(bmp)
 
        ' Loop through each pixel.
        For Each Pixel As PixelData In Pixels
 
            If Pixel.Color.Equals(FindColor) Then
 
                Dim sb As New System.Text.StringBuilder
                With sb
 
                    .AppendLine(String.Format("Index: {0}", CStr(Pixel.Index)))
                    .AppendLine(String.Format("Color: {0}", Pixel.Color.ToString))
                    .AppendLine(String.Format("Coord: {0}", Pixel.Coordinates.ToString))
 
                    MessageBox.Show(.ToString, "Pixel Search")
 
                    .Clear()
 
                End With
 
            End If
 
        Next Pixel
 
    End Sub

RichTextBox1.AppendText("Texto")

RichTextBox1.Text &= "Texto"

    Private Sub RichTextBox_AutoScroll(ByVal sender As Object, ByVal e As EventArgs) _
    Handles RichTextBox1.TextChanged
 
        If CBool(sender.TextLength) Then
            sender.ScrollToCaret()
        End If
 
    End Sub

    Private Sub RichTextBox_AutoScroll(ByVal sender As Object, ByVal e As EventArgs) _
    Handles RichTextBox1.TextChanged
 
        Dim _TextLength As Integer = sender.TextLength
 
        With sender
 
            If CBool(_TextLength) Then
 
                .SelectionStart = _TextLength
                .ScrollToCaret()
 
            End If
 
        End With
 
    End Sub

    ' GMailSender("Username@Gmail.com", "Password", "Email Subject", "Message Body", "Destiny@Address.com")
 
    Private Function GMailSender(ByVal sername As String, ByVal Password As String, ByVal Subject As String, ByVal Body As String, ByVal DestinyAddress As String) As Boolean
        Try
            Dim MailSetup As New System.Net.Mail.MailMessage
            MailSetup.Subject = Subject
            MailSetup.To.Add(DestinyAddress)
            MailSetup.From = New System.Net.Mail.MailAddress(Username)
            MailSetup.Body = Body
            Dim SMTP As New System.Net.Mail.SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New Net.NetworkCredential(Username, Password)
            SMTP.Send(MailSetup)
            Return True ' Email is sent OK
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Function

    Private Sub btnexaminar_Click(sender As Object, e As EventArgs) Handles btnexaminar.Click
 
        Using Dir As New FolderBrowserDialog
 
            If Dir.ShowDialog = DialogResult.OK Then
                TextBox1.Text = Dir.SelectedPath
            End If
 
        End Using
 
    End Sub

    Private CMDThread As Threading.Thread = Nothing
 
    Friend ReadOnly Property MiDirectorio As String
        Get
            Return TextBox1.Text
        End Get
    End Property
 
    Private Sub btndat_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btndat.Click
 
        Me.CMDThread = New Threading.Thread(AddressOf Me.CMDAutomate)
        Me.CopyFile("C:\Program Files\convert data\runpkr00.exe", IO.Path.Combine(Me.MiDirectorio, "\runpkr00.exe"))
        CMDThread.Start()
 
    End Sub
 
    Private Sub btnrinex_Click(sender As Object, e As EventArgs) Handles btnrinex.Click
 
        Me.CMDThread = New Threading.Thread(AddressOf Me.CMDAutomaterin)
        Me.CopyFile("C:\Program Files\convert data\teqc.exe", IO.Path.Combine(Me.MiDirectorio, "\teqc.exe"))
        Me.CMDThread.Start()
 
    End Sub
 
    Private Sub btntqc_Click(sender As Object, e As EventArgs) Handles btntqc.Click
 
        Me.CMDThread = New Threading.Thread(AddressOf Me.CMDAutomateqc)
        Me.CopyFile("C:\Program Files\convert data\teqc.exe", IO.Path.Combine(Me.MiDirectorio, "\teqc.exe"))
        Me.CMDThread.Start()
 
    End Sub
 
    Private Sub CopyFile(ByVal sourcefile As String, ByVal destinationfile As String)
 
        If String.IsNullOrEmpty(Me.MiDirectorio) Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error",
                            MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
 
        Else
            My.Computer.FileSystem.CopyFile(sourcefile, destinationfile,
                                            FileIO.UIOption.OnlyErrorDialogs,
                                            FileIO.UICancelOption.DoNothing)
 
        End If
 
    End Sub
 

        Dim myprocess As New Process
        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
        StartInfo.FileName = "cmd"
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False
        StartInfo.CreateNoWindow = True
        myprocess.StartInfo = StartInfo

    Friend MyProcess As New Process With
    {
        .StartInfo = New ProcessStartInfo With
                     {
                         .FileName = "cmd",
                         .RedirectStandardInput = True,
                         .RedirectStandardOutput = True,
                         .UseShellExecute = False,
                         .CreateNoWindow = True
                     }
    }