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;
GrapeCity.Xaml.SpreadSheet.Data.DataBarRule test = new GrapeCity.Xaml.SpreadSheet.Data.DataBarRule();
test.AxisColor = Windows.UI.Colors.Aquamarine;
test.AxisPosition = GrapeCity.Xaml.SpreadSheet.Data.DataBarAxisPosition.CellMidPoint;
test.BorderColor = Windows.UI.Colors.Chocolate;
test.ShowBorder = true;
test.DataBarDirection = GrapeCity.Xaml.SpreadSheet.Data.BarDirection.RightToLeft;
test.MaximumType = GrapeCity.Xaml.SpreadSheet.Data.ScaleValueType.HighestValue;
test.MinimumType = GrapeCity.Xaml.SpreadSheet.Data.ScaleValueType.LowestValue;
test.Ranges = new GrapeCity.Xaml.SpreadSheet.Data.CellRange[] { new GrapeCity.Xaml.SpreadSheet.Data.CellRange(0, 0, 5, 1) };
gcSpreadSheet1.Sheets[0].ConditionalFormats.AddRule(test);
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.Xaml.SpreadSheet.Data.DataBarRule()
test.AxisColor = Windows.UI.Colors.Aquamarine
test.AxisPosition = GrapeCity.Xaml.SpreadSheet.Data.DataBarAxisPosition.CellMidPoint
test.BorderColor = Windows.UI.Colors.Chocolate
test.ShowBorder = True
test.DataBarDirection = GrapeCity.Xaml.SpreadSheet.Data.BarDirection.RightToLeft
test.MaximumType = GrapeCity.Xaml.SpreadSheet.Data.ScaleValueType.HighestValue
test.MinimumType = GrapeCity.Xaml.SpreadSheet.Data.ScaleValueType.LowestValue