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
                     }
    }