No se si nadie no sabe esto, o nadie no quiere ayudar...
Ya solucione mi problema. Como yo no soy mesquino paso un codigo que arme para lo que necesitaba....
PD: VisualBsualdo no robes el codigo para decir que lo hisiste vos...
Código:
Variable = R1.GetLineFromChar(R1.SelStart)
Lo que hace esto, es decirte la linea donde esta el puntero....
Código:
Public Sub ColorearLinea(NumeroLinea As Long)
NumeroLinea = NumeroLinea - 1
Dim Comienzo As Long
Dim Final As Long
Dim Comenzo As Boolean
Dim Termino As Boolean
Dim X As Long
Comenzo = False
Comenzo = False
For X = 0 To Len(R1)
R1.SelStart = X
If Comenzo = False Then
If R1.GetLineFromChar(R1.SelStart) = NumeroLinea Then
Comienzo = R1.SelStart
Comenzo = True
End If
Else
If Termino = False Then
If R1.GetLineFromChar(R1.SelStart) = NumeroLinea + 1 Then
Final = R1.SelStart
Termino = True
R1.SelStart = Comienzo
R1.SelLength = Final - Comienzo
R1.SelColor = &HFF&
End If
End If
End If
Next X
End Sub
No voy a explicar mucho... Lo que hace es... Mandan el CALL ColorearLinea(Numero de la linea) y listo, lo que hace es buscar la linea y colorearla...
Al que le sirve la sirve al que no le sirve no le sirve.