Jag hittade följande kod på nätet:
<code>
Private Function HighlightWords(rtb As RichTextBox, _
sFindString As String, lColor As Long) As Integer

Dim lFoundPos As Long 'Position för första bokstaven som matchar.
Dim lFindLength As Long 'Längd på sträng som skall hittas
Dim lOriginalSelStart As Long
Dim lOriginalSelLength As Long
Dim iMatchCount As Integer 'Antal matchningar

'Sparar startpunkt och längd
lOriginalSelStart = rtb.SelStart
lOriginalSelLength = rtb.SelLength

'Lagra längden på strängen du vill finna och byta
lFindLength = Len(sFindString)

'Försöker hitta första liknande strängar.
lFoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)
While lFoundPos > 0
iMatchCount = iMatchCount + 1

rtb.SelStart = lFoundPos
'Egenskapen SelLength är satt till 0 så
'fort du ändrar SelStart
rtb.SelLength = lFindLength
rtb.SelColor = lColor

'Försöker hitta nästa matchande ord.
lFoundPos = rtb.Find(sFindString, _
lFoundPos + lFindLength, , rtfNoHighlight)
Wend

'Återställ startpunkten till ursprunglig
'plats och längd
rtb.SelStart = lOriginalSelStart
rtb.SelLength = lOriginalSelLength

'Returnerar antal matchningar
HighlightWords = iMatchCount

End Function
</code>
För att använda denna skulle man skriva
<code>
HighlightWords frMultiLanguage.txtSv, "MultiLang_" & intMul & "=", vbRed
</code>
Men ingenting händer, inget fel eller så.
I txtSv så finns de aktuella texten synligt.
Vad kan vara galet?

Som jag sa förut: spara lite mojs i wordpad som rtf och titta sedan på filen med anteckningar... :) Då blir det genast enklare & snabbare... :)

Det är här det är fel: rtb.SelColor = lColor
Ändra den till t.ex. vbRed så fungerar det.

EDIT: Du kan alltså ändra "lColor As Long" till "lColor As ColorConstants". Då borde det fungera.

/Micke