...
   <qwscp:ColorPicker id="ColorPickerDemo4_1" AutoPostBack="True" 
      OnColorChanged="ColorChanged" runat="server">
   </qwscp:ColorPicker>
   ...
         

   ...
   Sub ColorChanged(sender As Object, e As ColorEventArgs)
      Demo4TextBox.Text = e.ColorValue
      Demo4TextBox.BackColor = e.Color
      Dim colorName As String = e.ColorName
      
      If (colorName = string.Empty) Then
         colorName = "Not Set"
      End If
      
      Demo4Label.Text = "The selected color's value is <b>" _
         + e.ColorValue + "</b>, and name is <b>" _
         + colorName + "</b>."
   End Sub
   ...