Private Sub cmbColor_SelectedIndexChanged(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles cmbColor.SelectedIndexChanged
 
        mSelectedColor = Color.FromName(Me.cmbColor.SelectedItem)
        If Not mCTRL Is Nothing Then mCTRL.BackColor = mSelectedColor
        RaiseEvent ColorChanged(mSelectedColor)
       If mSelectedColor.ToString = Color.Transparent.ToString Then
            RichTextBox1.BackColor = Color.White
        Else
            RichTextBox1.BackColor = mSelectedColor
        End If
    End Sub

Gruss Caddy