请大家帮助解读一段代码
下面是等分圆的划线的代码片段，请问它的算法以及语句Angle = i * 2 * Atan(1)/3的作用？


'创建Pen对象
'Dim StartPoint(23), EndPoint(23), OriginPoint As PointF
Dim StartPoint, EndPoint, OriginPoint As PointF

'定义刻度的起点和终点，坐标原点
OriginPoint.X = 100
OriginPoint.Y = 70
'设置坐标原点
Dim TmLong As Double = 70
'刻度的比例长度
Dim Angle As Double
'刻度之间的角度
Dim i As Integer
For i = 0 To 11
Angle = i * 2 * Atan(1) / 3

'设置刻度起点和终点的坐标
StartPoint.X = 0.8 * TmLong * Cos(Angle) + OriginPoint.X
StartPoint.Y = 0.8 * TmLong * Sin(Angle) + OriginPoint.Y
EndPoint.X = TmLong * Cos(Angle) + OriginPoint.X
EndPoint.Y = TmLong * Sin(Angle) + OriginPoint.Y
'绘制刻度
g.DrawLine(LbPen, StartPoint, EndPoint)
Next

[解决办法]
不解释，高中平面几何+三角函数

如果看不懂，请先不要看代码，请用你高中的知识用纸和笔去解。你解出来了，反应成代码，就是这玩意
------解决方案--------------------

arc tan，根据直角三角形两直角边求角度。