Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp
        Me.Text = RichTextBox1.GetLineFromCharIndex( _
        RichTextBox1.GetFirstCharIndexOfCurrentLine) _
                  & " , " & RichTextBox1.SelectionStart - _
                  RichTextBox1.GetFirstCharIndexOfCurrentLine
End Sub