Private Sub Form_Load()
RichTextBox1.SelStart = 5
RichTextBox1.SelLength = 4
RichTextBox1.SelColor = vbBlue
 
RichTextBox1.SelStart = 3
RichTextBox1.SelLength = 2
RichTextBox1.SelColor = vbRed
 
RichTextBox1.SelStart = 0
End Sub

Private Sub Command1_Click()
SetRtbForeColor RichTextBox1, vbGreen
End Sub
 
Function SetRtbForeColor(rtb As RichTextBox, Color As OLE_COLOR)
Dim wstart As Long
Dim wlen As Long
wstart = rtb.SelStart
wlen = rtb.SelLength
rtb.SelStart = 0
rtb.SelLength = Len(rtb.Text)
rtb.SelColor = Color
rtb.SelStart = wstart
rtb.SelLength = wlen
rtb.HideSelection = False
End Function

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co