bueno, con la funcion q me dio seba, cree una funcion para numerar las lineas, pero resulta q tenia un par de bugs. intente sacarselos pero no he podido hacerlo. mi funcion quedo asi:
Código
Public Sub UpdateNumber(ByVal text As RichTextBox, Optional ByVal newline As Boolean = False) Try Main.Numerator.Font = text.Font Main.Numerator.Clear() Dim index As Integer, fLine As Integer, lLine As Integer Dim pos As New Point(0, 0) index = text.GetCharIndexFromPosition(pos) fLine = text.GetLineFromCharIndex(index) pos = Cursor.Position index = text.GetCharIndexFromPosition(pos) If newline = True Then lLine = text.GetLineFromCharIndex(index) + 1 Else lLine = text.GetLineFromCharIndex(index) End If If text.Lines.Count() > 200 And lLine < text.Lines.Count - 1 Then lLine += 1 For l = fLine To lLine If 100000 < l < 1000000 Then Main.Numerator.Text &= l & "." & vbNewLine ElseIf 10000 < l < 100000 Then Main.Numerator.Text &= " " & l & "." & vbNewLine ElseIf 1000 < l > 10000 Then Main.Numerator.Text &= " " & l & "." & vbNewLine ElseIf 100 < l < 1000 Then Main.Numerator.Text &= " " & l & "." & vbNewLine Else Main.Numerator.Text &= " " & l & "." & vbNewLine End If Next Catch ex As Exception End Try End Sub
la verdad es q lo q yo quiero es algo asi: http://solidfiles.com/d/a017/(es el programa el cual estoy intentando copiar pero con mejoras, si no lo quieren bajar de ese link y lo quieren buscar se llama pawno.)