Sub BCColorPicker1_ColorSet (ColorValue As Int)
Pane1.Color = ColorValue
Try
'Colors.Text = NumberFormat(ColorValue, 20, 0)
'Log("[color=#" & BCColorPicker1.ColorToHex(ColorValue) & "]" & NumberFormat(ColorValue, 20, 0) & "[/color]")
Colors.Text = "[color=#" & BCColorPicker1.ColorToHex(ColorValue).SubString(1) & "]Xx" & BCColorPicker1.ColorToHex(ColorValue) & "xxxX[/color]"
Colors.Text = "[color=#" & BCColorPicker1.ColorToHex(ColorValue) & "]Xx" & BCColorPicker1.ColorToHex(ColorValue) & "xxxX[/color]"
Catch
Log(LastException)
End Try
End Sub