'ハンドラーを追加します Me.UltraChart1.ChartDrawClicked += new ChartDrawItemEventHandler(Me.UltraChart1_ChartDataClicked) ' ChartDataClicked イベント コード Protected Sub UltraChart1_ChartDataClicked(sender As Object, e As ChartDataEventArgs) ' クリックされた DataColumn に関連付けられたテキスト ラベル DimColumnLabel As String = e.ColumnLabel ' クリックされた DataRow に関連付けられたテキスト ラベル Dim RowLabel As String = e.RowLabel ' クリックされたデータ値 Dim DataValue As Double = e.DataValue ' クリックされた DataRow のインデックス Dim DataRow As Integer = e.DataRow ' DataValue が 4 より小さい場合、グラフ タイプとグラフの色を変更します If DataValue < 4 Then Me.UltraChart1.BackColor = System.Drawing.Color.Red Me.UltraChart1.ChartType = ChartType.ColumnChart3D End If