Questa non è una chat dove le risposte ti arrivano subito.

codice:
Dim Position As Integer = InstanzaDellaRichTextBox.SelectionStart
Dim Line As Integer = InstanzaDellaRichTextBox.GetLineFromCharIndex(Position)
Dim Col As Integer = Position - InstanzaDellaRichTextBox.GetFirstCharIndexOfCurrentLine