GcSpreadSheet1.Sheets(0).Cells(0, 0).Value = 1
GcSpreadSheet1.Sheets(0).Cells(1, 0).Value = 10
GcSpreadSheet1.Sheets(0).Cells(2, 0).Value = 6
GcSpreadSheet1.Sheets(0).Cells(3, 0).Value = -3
Dim test As New GrapeCity.Windows.SpreadSheet.Data.DataBarRule()
test.NegativeBorderColor = Color.FromArgb(150, 10, 100, 99)
test.UseNegativeBorderColor = True
test.ShowBorder = True
test.MaximumType = GrapeCity.Windows.SpreadSheet.Data.ScaleValueType.HighestValue
test.MinimumType = GrapeCity.Windows.SpreadSheet.Data.ScaleValueType.LowestValue
test.MaximumValue = 20
test.MinimumValue = 0
test.UseNegativeFillColor = True
test.NegativeFillColor = Colors.Purple
test.Ranges = New GrapeCity.Windows.SpreadSheet.Data.CellRange() {New GrapeCity.Windows.SpreadSheet.Data.CellRange(0, 0, 5, 1)}
GcSpreadSheet1.Sheets(0).ConditionalFormats.AddRule(test)
test.Ranges = New GrapeCity.Windows.SpreadSheet.Data.CellRange() {New GrapeCity.Windows.SpreadSheet.Data.CellRange(0, 0, 5, 1)}
GcSpreadSheet1.Sheets(0).ConditionalFormats.AddRule(test)