Imports Infragistics.UltraChart.Core.Primitives Imports Infragistics.UltraChart.Shared.Styles ... Private Sub UltraChart1_ChartDrawItem(ByVal sender As Object, _ ByVal e As Infragistics.UltraChart.Shared.Events.ChartDrawItemEventArgs) _ Handles UltraChart1.ChartDrawItem ' ColumnChart から、ボックス プリミティブを取得します。 If TypeOf e.Primitive Is Box Then Dim b As Box = Nothing b = CType(e.Primitive, Box) If Not b Is Nothing AndAlso b.Row = 0 AndAlso b.Column = 2 Then b.PE = b.PE.Clone() ' UltraChart にグラデーションの塗りつぶしを使用することを知らせます。 b.PE.ElementType = PaintElementType.Gradient ' ボックスの色を設定します。 b.PE.Fill = Color.Blue b.PE.FillStopColor = Color.Cyan ' グラデーションとハッチの両方の塗りつぶしを初期化します。 b.PE.FillGradientStyle = GradientStyle.Vertical b.PE.Hatch = FillHatchStyle.LargeGrid End If End If End Sub