有谁做过VB程序设计中的模拟时钟转动设计啊！！！（急急急）

设时间显示在Label1中，时钟显示在Form1中，代码如下。
----------------------------------------
Dim h As Integer, m As Integer, s As Integer
Const pi As Double = 3.14159265358979
Private Sub Form_Load()
Me.ScaleLeft = -1000
Me.ScaleTop = -1000
End Sub

Private Sub Timer1_Timer()
Refresh
Label1.Caption = Now
h = Format(Now, "h")
m = Format(Now, "n")
s = Format(Now, "s")
Line (0, 0)-(300 * Cos(h * pi / 6 - pi / 2), 300 * Sin(h * pi / 6 - pi / 2)), vbRed
Line (0, 0)-(500 * Cos(m * pi / 30 - pi / 2), 500 * Sin(m * pi / 30 - pi / 2)), vbBlue
Line (0, 0)-(600 * Cos(s * pi / 30 - pi / 2), 600 * Sin(s * pi / 30 - pi / 2)), vbGreen
End Sub

最简单可以用 line 控件来实现
取3个line控件
x1和y1都是一样的，就是中心点

然后取出系统时间的
时分秒分别三个计算 x2 y2
那个用三角函数就可以了.....