[أحمد النجار]

معذرة على الخطا اكتب الاجراء التالي في الكود

Private Sub SelectLine(lineNumber As Integer, richTextBox As RichTextBox)
        Dim begin As Integer = 0
       
        ' add the length of the lines
        For i As Integer = 0 To lineNumber - 1
            begin += richTextBox.Lines(i).Length
            ' don't forget to add one more for the Environment.NewLine
            begin += 1
        Next
     
        Dim length As Integer = richTextBox.Lines(lineNumber).Length
        richTextBox.[Select](begin, length)
    End Sub