1、如何修改时针的形状？通过调整代码中的属性设置，可以改变时钟的形状。例如：通过改变每一个Line控制的Borderwidth属性设置，可以建立更细或更粗的线。
2、计时器的Interval（间距）属性设置计时器的Interval属性设置为100，即为1/10秒。程序的编写与执行
3、新建工程先新建一个工程（工程类型为标准EXE），然后用“工具箱”中的工具加入一个Timer1（计时器）和line1（直线），其index（指针）分别设置为空和0。然后双击Form1窗体，输入源代码。
4、程序源代码Option ExplicitDefDbl A-ZPrivate Sub Form_Load()timer1.Interval=100Width=4000Height=4000Left=Screen.Width\2-2000Top=(Screen.Height-Height)\2End SubPrivate Sub Form_Resize()Dim I, AngleStatic flag As BooleanIf flag=False Thenflag=TrueFor I=O to 14'画出表盘12个点和时、分、秒共15个LINEIf I>0 Then Load Line1(I)Line1(I).Visible=TrueLine1(I).BorderWidth = 5Line1(I).BorderColor = RGB(0, 128,0) '设置LINE的精细和颜色Next I
5、End IfFor I = 0 To 14Scale (-1, 1)-(1, -1)Angle = I * 2 * Atn(1) / 3Line1(I).X1 = 0.9 * Cos(Angle)Line1(I).Y1 = 0.9 * Sin(Angle)Line1(I).X2 = Cos(Angle)Line1(I).Y2 = Sin(Angle)Next IEnd Sub
6、Private Sub timer1_Timer()Const HH = 0Const MH = 13Const SH = 14Dim AngleStatic LSIf Second(Now) = LS Then Exit SubLS = Second(Now)Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) /60)) '设置时针Line1(HH).X1 = 0Line1(HH).Y1 = 0Line1(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 = 0Line1(MH).Y1 = 0Line1(MH).X2 = 0.7 * Cos(Angle)Line1(MH).Y2 = 0.7 * Sin(Angle)Angle = 0.5236 * (75 Second(Now)) '设置秒针Line1(SH).X1 = 0Line1(SH).Y1 = 0Line1(SH).X2 = 0.8 * Cos(Angle)Line1(SH).Y2 = 0.8 * Sin(Angle)form1.Caption = Str(Now()) '窗口显示精确的日期和数字化的时间End Sub
7、程序的编译和执行点击VB“运行”菜单中的“启动”或“全面编译”命令，即可对程序编译并运行！注：上述程序在中文Windows98和VB5.0中文企业版下调试通过
