Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
　　' 点スタイルを作成します
　　Dim ps As C1.Win.C1Chart.PointStyle = New C1.Win.C1Chart.PointStyle()

　　' 点スタイルに、Selectイベントハンドラを定義します
　　ps.Selection = C1.Win.C1Chart.PointStyleSelectionEnum.Custom
　　AddHandler ps.Select, AddressOf PS_Select

　　' 点スタイルを追加します
　　C1Chart1.ChartGroups(0).ChartData.PointStylesList.Add(ps)
End Sub

Private Sub PS_Select(ByVal sender As Object, _
ByVal e As C1.Win.C1Chart.PointStyleSelectEventArgs)
　　'特定のデータセットにのみ適用する場合は、条件文を設定します
　　If e.SeriesIndex = 2 Then
　　　　Dim ps As C1.Win.C1Chart.PointStyle = _
　　　　CType(sender, C1.Win.C1Chart.PointStyle)
　　　　Dim ds As C1.Win.C1Chart.ChartDataSeries = _
　　　　C1Chart1.ChartGroups(0).ChartData(e.SeriesIndex)
　　　　Dim y As Double = Convert.ToDouble(ds.Y(e.PointIndex))

　　　　'上下限値によって、色を変更します
　　　　If (y < 16) Then
　　　　　　ps.SymbolStyle.Color = Color.Blue
　　　　Else
　　　　　　ps.SymbolStyle.Color = Color.Red
　　　　End If

　　　　' すべての点に適用します
　　　　e.Selected = True
　　End If
End Sub

protected void Button1_Click(object sender, EventArgs e)
{
　　// 点スタイルを作成します
　　C1.Win.C1Chart.PointStyle ps = new C1.Win.C1Chart.PointStyle();

　　// 点スタイルに、Selectイベントハンドラを定義します
　　ps.Selection = C1.Win.C1Chart.PointStyleSelectionEnum.Custom;
　　ps.Select += new C1.Win.C1Chart.PointStyleSelectEventHandler(PS_Select);

　　// 点スタイルを追加します
　　c1Chart1.ChartGroups[0].ChartData.PointStylesList.Add(ps);
}

void PS_Select(object sender, C1.Win.C1Chart.PointStyleSelectEventArgs e)
{
　　//特定のデータセットにのみ適用する場合は、条件文を設定します
　　if (e.SeriesIndex = 2)
　　{
　　　　C1.Win.C1Chart.PointStyle ps = sender as C1.Win.C1Chart.PointStyle;
　　　　C1.Win.C1Chart.ChartDataSeries ds =
　　　　　c1Chart1.ChartGroups[0].ChartData[e.SeriesIndex];
　　　　double y = Convert.ToDouble(ds.Y[e.PointIndex]);

　　　　//上下限値によって、色を変更します
　　　　if (y < 16)
　　　　　　ps.SymbolStyle.Color = Color.Blue;
　　　　else
　　　　　　ps.SymbolStyle.Color = Color.Red;

　　　　// すべての点に適用します
　　　　e.Selected = true;
　　}
}