前辈们好，如题，在下是个超级菜鸟，下面是小时钟的代码，我知道肯定是不对的，但是不知道要添加在哪，要如何修改属性及赋值= =
请前辈们帮帮忙，谢谢！！！！


Dim i1 As Integer


Private Sub Command2_Click()
End
End Sub

Private Sub timer1_timer()
Label1.Caption = Time
DrawWidth = 3
 PSet (8000, 2200), RGB(0, 255, 255)
 
   For i = 0 To 59
 PSet ((7000 + 1500 * Cos(0.104719755 * i)), (2200 + 1500 * Sin(0.104719755 * i))), RGB(0, 0, 0)
Next
Line1.X2 = 7000 + 1000 * Cos(0.104719755 * i1)
Line1.Y2 = 2200 + 1000 * Sin(0.104719755 * i1)
i1 = i1 + 1
Line2.X2 = 7000 + 1200 * Cos(0.104719755 * i1)
Line2.Y2 = 2200 + 1200 * Sin(0.104719755 * i1)
i1 = i1 + 1
Line3.X2 = 7000 + 1300 * Cos(0.104719755 * i1)
Line3.Y2 = 2200 + 1300 * Sin(0.104719755 * i1)
i1 = i1 + 1
'Print i1
End Sub

timer1属性设置？

已经知道怎么整了，还是谢谢1楼的。。。