Не получается разобраться с кодом .

ublic Class Form1
    Private WithEvents docToPrint As New Printing.PrintDocument
    Dim Файл As String
 
    Private Sub document_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles docToPrint.PrintPage
        Dim text As String = RichTextBox1.Text
        Dim printFont = RichTextBox1.SelectionFont
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 10, 10)
    End Sub
    Public Sub АссоциацияФайлов(ByVal Расширение As String, ByVal ПутьКФайлу As String)
        Dim Our_SubKey As String = (Strings.Left(My.Computer.Registry.Users.GetSubKeyNames(6), Len(My.Computer.Registry.Users.GetSubKeyNames(6)) - 8))
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\." & Расширение, "", Расширение & "file")
        My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & Расширение & "file\DefaultIcon", "", ПутьКФайлу & ", 0")
    End Sub
    Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click
        Dim Блокнот As New SaveFileDialog
        Блокнот.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt"
        If Блокнот.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = Блокнот.FileName
        If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
            RichTextBox1.SaveFile(Файл)
        ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
            RichTextBox1.SaveFile(Файл, RichTextBoxStreamType.PlainText)
        End If
 
    End Sub
 
    Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click
        Dim Блокнот1 As New OpenFileDialog
        Блокнот1.Filter = "RTF-файлы|*.RTF|Текстовые файлы|*.txt|"
        Блокнот1.Title = "Сохранить файл "
        Блокнот1.CheckPathExists = True
        If Блокнот1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Файл = Блокнот1.FileName
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            Else
                MsgBox("Не могу открыть файл такого формата")
            End If
        End If
 
    End Sub
 
    Private Sub ОчиститьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОчиститьToolStripMenuItem.Click
        RichTextBox1.Text = Nothing
 
    End Sub
 
    Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ШрифтToolStripMenuItem.Click
        If FontDialog1.ShowDialog() = DialogResult.OK Then
            RichTextBox1.SelectionFont = FontDialog1.Font
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        АссоциацияФайлов("rtf", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        Try
            Файл = Strings.Mid(Command(), 2, Len(Command()) - 2)
            If Файл.EndsWith(".RTF") Or Файл.EndsWith(".rtf") Then
                RichTextBox1.LoadFile(Файл)
            ElseIf Файл.EndsWith(".TXT") Or Файл.EndsWith(".txt") Then
                RichTextBox1.LoadFile(Файл, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        Application.Exit()
    End Sub
 
 
    Private Sub КопироватьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КопироватьToolStripMenuItem.Click
        RichTextBox1.Copy()
 
    End Sub
 
    Private Sub ВырезатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВырезатьToolStripMenuItem.Click
        RichTextBox1.Cut()
    End Sub
 
    Private Sub ВставитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВставитьToolStripMenuItem.Click
        RichTextBox1.Paste()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDialog1.AllowSomePages = True
        PrintDialog1.ShowHelp = True
        PrintDialog1.Document = docToPrint
        Dim result As DialogResult = PrintDialog1.ShowDialog()
        If (result = DialogResult.OK) Then
            docToPrint.Print()
        End If
 
    End Sub
End Class

Sub PrintDocument1PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        checkPrint = Me.ERTB.Print(checkPrint, Me.ERTB.TextLength, e)
        If checkPrint < Me.ERTB.TextLength Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub

        AddHandler Me.printDocument1.PrintPage, AddressOf Me.PrintDocument1PrintPage
        AddHandler Me.printDocument1.BeginPrint, AddressOf Me.PrintDocument1BeginPrint