'Add Handler
AddHandler Me.UltraChart1.ChartDataClicked, AddressOf Me.UltraChart1_ChartDataClicked
' ChartDataClicked Event Code
Protected Sub UltraChart1_ChartDataClicked(sender As Object, e As ChartDataEventArgs)
' The text label associated with the DataColumn that was clicked
DimColumnLabel As String = e.ColumnLabel
' The text label associated with the DataRow that was clicked
Dim RowLabel As String = e.RowLabel
' The data value that was clicked
Dim DataValue As Double = e.DataValue
' Index of the DataRow that was clicked
Dim DataRow As Integer = e.DataRow
' If the DataValue is less than 4, change the chart type and chart color
If DataValue < 4 Then
Me.UltraChart1.BackColor = System.Drawing.Color.Red
Me.UltraChart1.ChartType = ChartType.ColumnChart3D
End If