[VB6] Adding formatted text to a Rich Text Box

[c0rrupt]

Is there any I can do something like this?

RTB.Text = RTB.TextRTF & vbCrLf & "<color=Red> <b> Loading Game </b> </color>"

I know the formatting strings probably wouldn't look so HTML'ish, but you get the idea.

[headkaze]

Dim szColorTable As String

szColorTable = "{\colortbl;"
szColorTable = szColorTable & "\red255\green0\blue0;" ' red
szColorTable = szColorTable & "\red0\green255\blue0;" ' green
szColorTable = szColorTable & "\red0\green0\blue255;" ' blue
szColorTable = szColorTable & "}"
    
RTB.TextRTF = "{" & szColorTable & "\b \cf1 Loading Game\cf0 \b0 \n }"