VB画图代码，请教高手。

VB画图，请教高手！
在下面的代码中，周长等分次数为可变整数，假设将其定为6，那么在Picture6 中显示的数值为：0、524、1047、1571、2094、2618、3142七个，Picture7中显示的数值为：131、201、335、402、335、201、131七个。
问题一：
要编什么代码可以画出以下线段（以下括号内数值为点的坐标值）？
1、 一条多段线：（起点、0）~（起点、524）~（起点、1047）~（起点、2094）~（起点、2618）~（起点、3142）。
2、 一条多段线：（131、0）~（201、524）~（335、1047）~（402、1571）~（335、2094）~（201、2618）~（131、3142）。
3、 七条直线：（起点、0）~（131、0）、（起点、524）~（201、524）、（起点、1047）~（335、1047）、（起点、1571）~（402、1571）、（起点、2094）~（335、2094）、（起点、2618）~（201、2618）、（起点、3142）~（131、3142）。
问题一：
要是周长等分次数不是6，变成其他整数怎么办？

代码如下：
Private Sub Command1_Click()
Dim 弯曲半径 As Double
Dim 管道直径 As Double
Dim 弯曲角度 As Double
Dim 周长等分次数 As Double
Dim 弯头切割刀数 As Double

圆周率 = 3.14159265358979
起点=0
角度转换 = 1 / 180 * 圆周率
弯曲半径 = 1000
管道直径 =1000
弯曲角度 =90
周长等分次数 = Val(Text1.Text)
弯头切割刀数 = 3
管道周长 = 管道直径 * 圆周率
切割角度 = (弯曲角度 / (弯头切割刀数 * 2)) * 角度转换
等分角度 = (360 / 周长等分次数) * 角度转换
管道半径 = 管道直径 / 2