Как разбить шкалу на одинаковые отрезки - VB

Формулировка задачи:

Помогите пожалуйста может кто алгоритм какой знает. Дана шкала в диапозоне [-20;20] . Как её разбить на одинаковые отрезки если взять любые значения из этого диапозона например [-5;6]. Шкала рисуется с помощью метода Line как я понимаю но как её разбить ума не приложу, помогите пожалуйста

Решение задачи: «Как разбить шкалу на одинаковые отрезки»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim  BytI As Integer 
'Задание масштаба и новой системы координат
   Picture1.Scale (-20, 20)-(20, -20)
     Picture1.Line (-20, 0)-(20, 0)
For BytI = -20 To 20
    Picture1.PSet (BytI, 0) 'Рисуем масштаб на оси Х
    Picture1.Print BytI; 'Подписываем масштаб
Next BytI
'Ось Y
Picture1.Line (0, 20)-(0, -20)
For BytI = -20 To 20
    Picture1.PSet (0, BytI) 'Рисуем масштаб на оси У
    Picture1.Print BytI; 'Подписываем масштаб
Next BytI
End Sub
                        