ChatSend with Text Color Format

‘**************************************************************************
‘USAGE:
‘ ColorWord (“blue”), vbBlue, 10, True, False
‘ ColorWord (“red”), vbRed, 10, True, False
‘ ColorWord (“cyan”), vbCyan, 10, True, False
‘ ColorWord (“green”), vbGreen, 10, True, False
‘ ColorWord (“magenta”), vbMagenta, 10, True, False
‘ ColorWord (“yellow”), vbYellow, 10, True, False
‘**************************************************************************

Public Function ColorWord(Swords As String, Scolor As ColorConstants, _
SFontsize As Integer, Sbold As Boolean, Sitalic As Boolean)
Dim search&
search = 1
Do Until search = 0
search = InStr(search, frmRTB.rtb.text, Swords, vbTextCompare)
If search > 0 Then
With frmRTB.rtb
.SelStart = search – 1
.SelLength = Len(Swords)
.SelColor = Scolor
.SelFontSize = SFontsize
.SelBold = Sbold
.SelItalic = Sitalic
End With
search = search + Len(Swords)
End If
Loop
With frmRTB.rtb
.SelStart = Len(frmRTB.rtb.text)
.SelColor = vbGreen
.SelFontSize = 8
.SelBold = False
.SelItalic = False
End With
End Function

This will send the content of RichTextBox1 Control to paltalk with chatsend function
call chatsend(RichTextBox1)

so! UDG should we use hex color code instead of vbblue, vbgreen, stuff? cause i’ve test the basic of color

Private Sub colorizeFont()
r = 255 * Rnd
g = 255 * Rnd
b = 255 * Rnd
RichTextBox1.SelColor = RGB(r, g, b)
End Sub

Private Sub RichTextBox1_Change()
DoEvents
colorizeFont
Me.Caption = “(Fun_Font) = Font Color (” & RichTextBox1.SelColor & “)”
DoEvents
End Sub

the above 2 line will change color in RTBox every time entered a key, then use a command button to sent to paltalk

i’ve test 1 word about 15 chars after that i’t won’t display in PT