調xx~叻人唔好入,蠢人例外

闖王

Command _click

'This is for newbies, vote if u like
'By Mr.PoO
Private Sub Command1_Click()
'this brings up the color dialog box
CommonDialog1.ShowColor
'when you select the text, this is the code which will change it into
'color
RichTextBox1.SelColor = CommonDialog1.Color
End Sub