'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