If Not ColorDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionColor = ColorDialog1.Color
End If
If Not ColorDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
RichTextBox1.SelectionColor = ColorDialog1.Color
RichTextBox1.SelectionFont = New Font("Verdana", 10, FontStyle.Bold)
RichTextBox1.SelectionBackColor = Color.LightBlue
RichTextBox1.SelectionBullet = True
RichTextBox1.SelectionIndent = 30
End If

