Call this sub to insert text of any color at the current insert point of a RichTextBox:
Private Sub ColorText(rtb As RichTextBox, Color _ As Long, Text As String) Dim lR As Long, lG As Long, lB As Long lR = (Color Mod &H100) lG = (Color &H100) Mod &H100 lB = (Color &H10000) Mod &H10000 rtb.SelRTF = "{{colortbl;
ed" & CStr(lR) & _ "green" & CStr(lG) & _ "lue" & CStr(lB) & ";}" & _ "{cf1 " & Text & "}}"End Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
