Reply To: ghostriderofthenite Ultimate Bot project

hmmmmmmm maybe something like this ill have test it

Private Sub Command6_Click()
On Error GoTo Error_Event:
CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color
RichTextBox1 = (RichTextBox1.Text)
Error_Event:
Exit Sub
End Sub