How to scroll with highlighting in a textbox

[mikef]

My users load up a text file into a RichTextBox. My program then reads their text file line by line and does some operations requested by the user on each line.

I have a label that displays what line # the program is currently processing, but I would like to actually highlight that line in the RichTextBox where their file is loaded, so they can see the actual line being processed.

So, once the program started, it would highlight line 1 in the RTB and when the program moved to the next line it would highlight line 2 and so on.

It would scroll the file before your eyes and be beautiful... BUT I can't figure it out!

Any tips or leads greatly appreciated!!

[MidgetsBro]

Rich Textbox on the form called RTB. A file on the C: called file.txt containing line returns

Private Sub Command1_Click()
Dim i As Long
Open "C:\file.txt" For Input As #1
  rtb.Text = Input$(LOF(1), 1)
Close #1
i = 1
rtb.SelStart = i
rtb.SelLength = InStr(i, rtb.Text, vbCrLf)
Do Until InStr(i, rtb.Text, vbCrLf) = 0
  rtb.SelStart = i
  rtb.SelLength = InStr(i, rtb.Text, vbCrLf) - i
  ProcessText rtb.SelText
  i = InStr(i, rtb.Text, vbCrLf) + 1
Loop
End Sub
 
Public Sub ProcessText(strData As String)
'you can do whatever you want to process it here... 
MsgBox strData
End Sub

[mikef]

You are mad genius!!! Your routine works perfectly and I have implemented it into my program.

Thanks for your help!

[mikef]

Any idea how I can change the color of the highlighting?

Thanks again for your expertise. I have been researching this to no avail for awhile. FINALLY the Messiah has come!!

thanks again!!

[MidgetsBro]

I think the highlight color has something to do with the system colors, but there is probably a way to subclass it. I don't have any expertise in subclassing, so you could probably make a new thread about it.