帮我写一个vb6.0的时钟代码，用line控件，shape控件和timer控件

以下是一个简单的VB6.0时钟代码，使用了Line控件、Shape控件和Timer控件：

1. 首先在窗体上添加一个Timer控件，命名为Timer1。
2. 然后添加两个Shape控件，一个用于显示时针，一个用于显示分针。分别命名为ShapeHour和ShapeMinute。
3. 再添加一个Line控件，用于显示秒针。命名为LineSecond。

代码如下：

Private Sub Form_Load()
    '设置时钟的样式
    ShapeHour.Shape = vbShapeRectangle
    ShapeHour.Width = 60
    ShapeHour.Height = 6
    ShapeMinute.Shape = vbShapeRectangle
    ShapeMinute.Width = 80
    ShapeMinute.Height = 4
    LineSecond.X1 = 1200
    LineSecond.Y1 = 1500
    LineSecond.X2 = 1200
    LineSecond.Y2 = 600
End Sub

Private Sub Timer1_Timer()
    '获取当前时间
    Dim nowTime As Date
    nowTime = Now()
    
    '计算时针、分针、秒针的角度
    Dim hourAngle As Single
    Dim minuteAngle As Single
    Dim secondAngle As Single
    hourAngle = (nowTime.Hour Mod 12 + nowTime.Minute / 60) * 30
    minuteAngle = nowTime.Minute * 6
    secondAngle = nowTime.Second * 6
    
    '设置时针、分针、秒针的位置和角度
    ShapeHour.Left = 1200 - ShapeHour.Width / 2 + 400 * Cos(hourAngle * 3.14 / 180)
    ShapeHour.Top = 1500 - ShapeHour.Height / 2 - 400 * Sin(hourAngle * 3.14 / 180)
    ShapeHour.Angle = hourAngle
    ShapeMinute.Left = 1200 - ShapeMinute.Width / 2 + 600 * Cos(minuteAngle * 3.14 / 180)
    ShapeMinute.Top = 1500 - ShapeMinute.Height / 2 - 600 * Sin(minuteAngle * 3.14 / 180)
    ShapeMinute.Angle = minuteAngle
    LineSecond.X2 = 1200 + 800 * Sin(secondAngle * 3.14 / 180)
    LineSecond.Y2 = 1500 - 800 * Cos(secondAngle * 3.14 / 180)
End Sub

这个代码中，首先在窗体加载时设置了时钟的样式。然后在Timer控件的Tick事件中，获取当前时间并计算时针、分针、秒针的角度。最后根据角度设置时针、分针、秒针的位置和角度，实现时钟的显示。