先建个窗体，再插入个计时器，然后把粘贴代码：

'lyxuess(305349746)@qq.com
Option Explicit
Dim r, x, y, NumSizeAs Single, n, c, lastsecond As Integer
Const PI =3.14
15926535897
9
Private SubForm_Load()
Form1.AutoRedraw =True
Form1.BackColor =RGB(100, 100, 150)
Form1.Top = 30
Form1.Width = 9000
Form1.Height = 8600
Form1.FontName ="华文行楷"
Timer1.Interval =853
End Sub
Private SubForm_Resize()
Form1.Caption ="waiting..."
r = IIf(Form1.Width> Form1.Height, Form1.Height, Form1.Width) / 2 * 0.9
x = Form1.Width /2.05
y = Form1.Height /2.1
NumSize = 10 * r /2900
Cls
Form1.FontSize =NumSize * 3
CurrentX = x -Form1.TextWidth("-lyxue's DIY-") / 2
CurrentY = y -Form1.TextHeight("-lyxue's DIY-") * 1.5
Print "-lyxue'sDIY-"
CurrentX = x -Form1.TextWidth("-lyxue's DIY-") / 2
CurrentY = CurrentY+ Form1.TextHeight("[email protected]") / 4
Print"[email protected]"
End Sub
Private SubTimer1_Timer()
If lastsecond =Second(Now) Then Exit Sub Else lastsecond = Second(Now)
Cls
For n = 1 To 60
If n Mod 5 = 0 Then
Form1.ForeColor =RGB(255, 98, 21)
Form1.FontSize =NumSize * 2
Form1.FontBold =True
CurrentX = x + Sin(n* PI / 30) * r - Form1.TextWidth(n & " ") / 2
CurrentY = y - Cos(n* PI / 30) * r - Form1.TextWidth(n) / 2
Print n / 5
Else
Form1.ForeColor =vbWhite
Form1.FontSize =NumSize
Form1.FontBold =False
CurrentX = x + Sin(n* PI / 30) * r - Form1.TextWidth(n & " ") / 2
CurrentY = y - Cos(n* PI / 30) * r - Form1.TextWidth(n) / 2
Print n
End If
Next
Form1.ForeColor =RGB(255, 98, 21)
Form1.FontSize =NumSize * 1.8
Form1.FontBold =True
For n = 0 To 5
CurrentX = x +Sin((Hour(Now) * 60 + Minute(Now)) * PI / 360) * r * 0.09 * n -Form1.TextWidth(n) / 2
CurrentY = y -Cos((Hour(Now) * 60 + Minute(Now)) * PI / 360) * r * 0.09 * n -Form1.TextWidth(n) / 2
Print Hour(Now)
Next
Form1.ForeColor =RGB(213, 213, 80)
Form1.FontSize =NumSize * 1.3
For n = 0 To 8
CurrentX = x +Sin((Minute(Now) * 60 + Second(Now)) * PI / 1800) * r * 0.09 * n -Form1.TextWidth(n) / 2
CurrentY = y -Cos((Minute(Now) * 60 + Second(Now)) * PI / 1800) * r * 0.09 * n -Form1.TextWidth(n) / 2
Print Minute(Now)
Next
Form1.ForeColor =vbWhite
Form1.FontSize =NumSize * 0.8
Form1.FontBold =False
For n = -2 To 10
CurrentX = x +Sin(Second(Now) * PI / 30) * r * 0.09 * n - Form1.TextWidth(n) / 3
CurrentY = y -Cos(Second(Now) * PI / 30) * r * 0.09 * n - Form1.TextHeight(n) / 3
Print Second(Now)
Next
Form1.Caption = Time
End Sub


呵呵,我不是高手,VB还没学完呢...
上面那是一时兴起之作.

如果不能运行把上面第11行代码删除或将该行的"华文行楷"改为宋体就能运行了

时间是你系统的时间。。。
只是指针的那个中心点有点偏移-------没办法，能力有限

设太小耗资源，但又必须小于1000ms，就随便设了个～～
你可以把它调小试试，可能秒针就比较准了。。。。