源码:
效果:

Private Const PI = 3.14159265

Private Sub Form_Load()
   Me.Scale (-2000, 2000)-(2000, -2000)
End Sub

Private Sub Timer1_Timer()
    Me.Cls
    For i = 0 To 360 Step 30
        Me.DrawWidth = 5
        Me.PSet (Sin(PI / 180 * i) * 500, Cos(PI / 180 * i) * 600), vbGreen
    Next
    Me.DrawWidth = 1
    Me.Line (-2000, 0)-(2000, 0), vbBlack
    Me.Line (0, 2000)-(0, -2000), vbBlack
    Me.DrawWidth = 2
    '秒
    Me.Line (0, 0)-(Sin(PI / 180 * Second(Now) * 6) * 500, Cos(PI / 180 * Second(Now) * 6) * 500), vbRed
    '分
    Me.Line (0, 0)-(Sin(PI / 180 * Minute(Now) * 6) * 400, Cos(PI / 180 * Minute(Now) * 6) * 400), vbYellow
    '时
    Me.Line (0, 0)-(Sin(PI / 180 * Hour(Now) * 30) * 300, Cos(PI / 180 * Hour(Now) * 30) * 300), vbBlack
End Sub

ioriliao我问你一个简单的问题:如果Timer内的代码很多,在一个Interval内执行不完,那未执行完的那些代码咋办?
当然不是说你的代码有问题啊,只作讨论

会继续执行，相关测试代码如下：

Option Explicit
Dim bo As Long

Private Sub Timer1_Timer()

Label3.Caption = bo

If bo = 0 Then
    bo = 1
    Call sub1
End If
If bo = 1 Then
    bo = 2
    Call sub2
End If
End Sub


Sub sub1()
Dim i As Long
Dim j As Long
    
    For i = 5000 To 10000
        Label1.Caption = i
        For j = 1 To 1000
            DoEvents
        Next j
        
    Next i

End Sub

Sub sub2()
Dim i As Long
Dim j As Long
    
    For i = -10000 To -5000
        Label2.Caption = i
        For j = 1 To 1000
            DoEvents
        Next j
        
    Next i

End Sub

[[it] 本帖最后由 风吹过b 于 2008-10-31 09:20 编辑 [/it]]

会发代码了。刚找了一下。

呵呵...会等到代码执行完毕的.
那位老兄能将程序改成api的啊?

不知道如何用api定义数学坐标系.

Timer是接收窗体WM_TIMER消息来确定执行的，如果在Timer事件的处理过程返回前，一般窗体不再响应其它的事件，下一次的WM_TIMER一直在队列中等待，一旦处理过程完成，应该会再次激活。

好东西，学习了