The description is not quite clear to me. Can you please clarify it?

If max >= 0 And max <= 10

Then

ElseIf max >= 11 And max <= 20

Then

ElseIf max >= 21 And max <= 40

Then

ElseIf max >= 41 And max <= 100

Then

Else

UltraChart1.Axis.Y.TickmarkInterval = (max / 10) - ((max / 10)

Mod 10)

End If

''' set x axis

UltraChart1.Axis.X.Labels.SeriesLabels.Orientation = XDW.UltraChart.Shared.Styles.TextOrientation.VerticalLeftFacing

Me.UltraChart1.Axis.X.Extent = 180

Me.UltraChart1.Axis.Y.Extent = 80

UltraChart1.ColumnChart.ColumnSpacing = 0

Me.UltraChart1.Tooltips.Overflow = XDW.UltraChart.Shared.Styles.TooltipOverflow.ChartArea

UltraChart1.Axis.Y.Visible = True

UltraChart1.Axis.X.Visible = 

UltraChart1.Axis.X.ScrollScale.Scale = 1

UltraChart1.Axis.Y.ScrollScale.Scale = 1

UltraChart1.DataSource = dt1

UltraChart1.DataBind()

'''''''''''''''' Datatable dt1 has 3 columns

if rows greater than 60 den x axis lables not visible when we scroll it

UltraChart1.Axis.X.TickmarkStyle = XDW.UltraChart.[Shared].Styles.AxisTickStyle.Smart

UltraChart1.Axis.X.RangeType = XDW.UltraChart.Shared.Styles.AxisRangeType.Automatic

UltraChart1.Axis.X.NumericAxisType = XDW.UltraChart.Shared.Styles.NumericAxisType.Linear

UltraChart1.Axis.X.Labels.ItemFormat = XDW.UltraChart.Shared.Styles.AxisItemLabelFormat.ItemLabel

UltraChart1.Axis.X.Labels.ItemFormat = XDW.UltraChart.Shared.Styles.AxisItemLabelFormat.None

UltraChart1.Axis.Y.NumericAxisType = XDW.UltraChart.Shared.Styles.NumericAxisType.Linear

UltraChart1.Axis.Y.RangeMin = 0

UltraChart1.Axis.Y.RangeMax = max

UltraChart1.Axis.Y.TickmarkInterval = 10

UltraChart1.Axis.Y.TickmarkInterval = 5

UltraChart1.Axis.Y.TickmarkInterval = 3

UltraChart1.Axis.Y.TickmarkInterval = 1

UltraChart1.ChartType = ChartType.ColumnChart

UltraChart1.Axis.Y.RangeType = XDW.UltraChart.Shared.Styles.AxisRangeType.Custom

UltraChart1.Axis.Y.TickmarkStyle = XDW.UltraChart.Shared.Styles.AxisTickStyle.DataInterval