xChart1.NbYIntervals = 5
xChart1.YMaxValue = GetNextMultipleOfdiv(max1 + 2, 5) 'max1 - max value of range
Sub GetNextMultipleOfdiv(num As Float, div As Int) As Int
Dim intPart As Int = Floor(num)
' Find the next number divisible by div using ceiling division
Return (intPart + div - (intPart Mod div))
End Sub Sub