hej...jag har läst kursen här på pellesoft hur man markerar ord i en RTF-box

jag vill att om man skriver ' (ungefär som i VB)
alltså jag vill göra kommentarer till mitt programmering program.

texten ska bli röd...jag fick en kod av en efter testat lite...men den koden funkar inte heller...och jag har försökt få till koden också så att den funkar...just nu får jag inget fel..men jag vill när man skriver:
'kommentar och sen klickar radbyte....så blir texten röd under där också...jag vill bara få röd text på den raden som man skrev ' på

här är min kod just nu:

Public Function HighlightWords(frm As Form, rtb As RichTextBox) As Integer
Dim lStartPos As Long
Dim lStopPos As Long
lStartPos = rtb.Find("'", 0, , rtfNoHighlight)
Do While lStartPos > 0
lStopPos = rtb.Find(vbCrLf, lStartPos, , rtfNoHighlight)
If lStopPos > 0 Then
rtb.SelStart = lStartPos
rtb.SelLength = lStartPos + lStopPos
rtb.SelColor = vbRed

lStartPos = rtb.Find("'", lStopPos, , rtfNoHighlight)
HighlightWords = HighlightWords
Else
Exit Do
End If
Loop
End Function

Du kan ju börja med att skriva så här:

Private Function HighlightWords(rtb As RichTextBox) As Integer
Dim lStartPos As Long
Dim lEndPos As Long

lStartPos = rtb.Find("'", 0, , rtfNoHighlight)
lEndPos = rtb.Find(vbCrLf, lStartPos, , rtfNoHighlight)

rtb.SelStart = lStartPos
rtb.SelLength = lEndPos - lStartPos
rtb.SelColor = vbRed
End Function

Koden letar upp det första ' tecknet och gör texten röd ända till närmaste radbrytning. Sen lär du behöva lägg in ytterligare kod för att förhindra en del fel.