VB自动生成机床转速图

VB如何自动生成机床转速图？我做一点，能自动生成网格，但下面的算法就不清楚了，请高人指点。
Private Sub Form_Click()
For i = 1 To Z
Line (1000, 500 * i)-(9000, 500 * i)
Next i
Line (1000, 500)-(1000, 500 * Z)
Line (3000, 500)-(3000, 500 * Z)
Line (5000, 500)-(5000, 500 * Z)
Line (7000, 500)-(7000, 500 * Z)
Line (9000, 500)-(9000, 500 * Z)
End Sub
Z在前面选定，后面如何继续，请高人指点阿，不胜感激