'CellFactoryクラスを継承してカスタムセルファクトリを使用します
Public Class CustomCellFactory
Inherits CellFactory
Public Overrides Function CreateCell(grid As C1FlexGrid, cellType As CellType, rng As CellRange) As FrameworkElement
Dim ctrl = MyBase.CreateCell(grid, cellType, rng)
Dim bdr = DirectCast(ctrl, Border)
If bdr IsNot Nothing AndAlso rng.Row = 1 AndAlso rng.Column = 2 Then
bdr.Background = Brushes.Orange
End If
Dim cellRange As New CellRange(5, 1, 6, 3)
If cellRange.Contains(rng) Then
bdr.Background = Brushes.Orange
End If
Return ctrl
End Function
End Class