时钟的实现初始化问题？？

Question

我已经实现了，代码如下：
Dim x#, y#, len3#
Public Function dtor(m)
pi = 3.14159
dtor = m * (pi / 180)
End FunctionPrivate Sub Form_Load()
x = Form1.Width / 2
y = Form1.Height / 2 - 120
Line1.X1 = x
Line1.Y1 = y
Line2.X1 = x
Line2.Y1 = y
Line3.X1 = x
Line3.Y1 = y
End SubPrivate Sub Timer1_Timer()
Line1.X2 = Line1.X1 + 1500 * Sin((dtor(Timer * 6)))
Line1.Y2 = Line1.Y1 - 1500 * Cos((dtor(Timer * 6)))
Line2.X2 = Line1.X1 + 1200 * Sin((dtor(Timer / 10)))
Line2.Y2 = Line1.Y1 - 1200 * Cos((dtor(Timer / 10)))
Line3.X2 = Line1.X1 + 800 * Sin((dtor(Timer / 120)))
Line3.Y2 = Line1.Y1 - 800 * Cos((dtor(Timer / 120)))
End Sub
谁有好的建议请指教！！

Answer 1

Pcwl 我已经给分你了，你的代码呢？