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中文企業版下調試通過。
新聞熱點
疑難解答
