VB设计动画时钟

PRivateSubForm_Load()
Timer1.Interval=100
Width=4000
Height=4000
Left=Screen.Width/2-2000
Top=(Screen.Height-Height)/2
EndSub

PrivateSubForm_Resize()
DimI,Angle
StaticflagAsBoolean
Ifflag=FalseThen
flag=True
ForI=0To14
'画出表盘12个点和时、分、秒共15个Line
IfI>0ThenLoadLine1(I)
Line1(I).Visible=True
Line1(I).BorderWidth=5
Line1(I).BorderColor=RGB(200,100,60)'设置LINE的精细和颜色
NextI
EndIf
ForI=0To14
Scale(-1,1)-(1,-1)
Angle=I*2*Atn(1)/3
Line1(I).X1=0.9*Cos(Angle)
Line1(I).Y1=0.9*Sin(Angle)
Line1(I).X2=Cos(Angle)
Line1(I).Y2=Sin(Angle)
NextI
EndSub

PrivateSubTimer1_Timer()
ConstHH=0
ConstMH=13
ConstSH=14
DimAngle
StaticLS
IfSecond(Now)=LSThenExitSub
LS=Second(Now)
Angle=0.5236*(15-(Hour(Now) Minute(Now)/60))'设置时针
Line1(HH).X1=0
Line1(HH).Y1=0
Line1(HH).X2=0.3*Cos(Angle)
Line1(HH).Y2=0.3*Sin(Angle)
Angle=0.1047*(75-(Minute(Now) Second(Now)/60))'设置分针
Line1(MH).X1=0
Line1(MH).Y1=0
Line1(MH).X2=0.7*Cos(Angle)
Line1(MH).Y2=0.7*Sin(Angle)
Angle=0.5236*(75-Second(Now)/5)'设置秒针
Line1(SH).X1=0
Line1(SH).Y1=0
Line1(SH).X2=0.8*Cos(Angle)
Line1(SH).Y2=0.8*Sin(Angle)
Form1.Caption=Str(Now())'窗口显示精确的日期和数字化的时间
EndSub
（3）程序的编译和执行
点击VB“运行”菜单中的“启动”或“全面编译”命令，即可对程序编译并运行！
注：上述程序在中文Windows98和VB5.0中文企业版下调试通过。