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
' Get a Box primitive from a 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()
' Tell UltraChart to use Gradient fill
b.PE.ElementType = PaintElementType.Gradient
' Set the colors for the Box
b.PE.Fill = Color.Blue
b.PE.FillStopColor = Color.Cyan
' Initialize both a Gradient and Hatch fill
b.PE.FillGradientStyle = GradientStyle.Vertical
b.PE.Hatch = FillHatchStyle.LargeGrid
End If
End If
End Sub