Visual Basic - Doble Click en RichTextBox

'Esto es para llenar el textbox... si quieres no lo pones 

Private Sub Form_Load()

Me.RichTextBox1.Text = ""

Me.RichTextBox1.Text = Me.RichTextBox1.Text & "Esta es la Linea  1 " & vbCr

Me.RichTextBox1.Text = Me.RichTextBox1.Text & "Esta es la Linea  2 " & vbCr

Me.RichTextBox1.Text = Me.RichTextBox1.Text & "Esta es la Linea  3 " & vbCr

Me.RichTextBox1.Text = Me.RichTextBox1.Text & "Esta es la Linea  4 " & vbCr

End Sub

'Este hace la magia.... 

Private Sub RichTextBox1_Click()

Dim P As Integer

Dim L As Integer

P = Me.RichTextBox1.SelStart

L = Me.RichTextBox1.GetLineFromChar(P)

MsgBox ("Estas en la Linea " & L + 1)

End Sub

'Este hace la magia.... probado en VB.net 2012

    Private Sub RichTextBox1_Click(sender As Object, e As EventArgs) Handles RichTextBox1.Click

        Dim P As Integer

        Dim L As Integer

        P = RichTextBox1.SelectionStart

        L = RichTextBox1.GetLineFromCharIndex(P)

        MsgBox("Estas en la Linea " & L + 1)

    End Sub

End Sub