เกี่ยวกับ RichTextbox แสดงข้อความลงใน Notepad และ RichTextbox Scroll

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = ("myrichtext")'คำสั่งในการเขียนข้อมความลงบน RichTextBox1.Text
        Dim finfoo As New FileInfo("myfile.txt")'คสั่งสร้างไฟล์.txt
        Dim sutre As StreamWriter = finfoo.CreateText'คำสั่งเปิดไฟล์เตรียมเขียนข้อความ
        sutre.Write(RichTextBox1.Text)'เขียนข้อมความจากRichTextBox1.Text ลงในNotepad
        sutre.Flush()
        sutre.Close()
        Process.Start("myfile.txt")'คำสั่งrun Notepad ขึ้นมาอ่าน
    End Sub

Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = ("ข้อความในริชเทกซ์บ๊อก")
        File.AppendAllText("myfile.txt", RichTextBox1.Text & vbCrLf) 'เปิดไฟล์เพื่อเขียนต่อท้ายสตริงถ้าไม่มีจะสร้างไฟล์ใหม่ครับ
        Process.Start("myfile.txt")'รันไฟล์
End Sub