Dim X As Long, Y As Long

Private Sub Command1_Click()
  Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub


Private Sub Form_Activate()
  Form1.ScaleMode = 3
  Form1.WindowState = 2
   
  X = Form1.ScaleWidth \ 2
  Y = Form1.ScaleHeight \ 2
  Form1.AutoRedraw = True
  Timer1.Enabled = False
  Timer1.Interval = 1000
  Command2.Left = 0
  Command2.Top = 0
  Command2.Width = 50
  Command2.Caption = "STOP"
   
  Command1.Left = 2 * X - 50
  Command1.Top = 0
  Command1.Width = 50
  Command1.Caption = "START"
  Form1.ForeColor = vbBlue
  Form1.FillStyle = 0
  Form1.FillColor = vbYellow
  Form1.DrawWidth = 2
   
  Line1.BorderWidth = 5
  Line1.BorderColor = 25000
  Line2.BorderWidth = 3
  Line2.BorderColor = 16000000
  Line3.BorderWidth = 2
  Line3.BorderColor = 234000

  Form1.Circle (X, Y), 240, vbBlue
  Form1.Circle (X, Y), 220, vbBlue
  For U = 1 To 60
  X1 = X + 240 * Cos(U * 6 * 3.14 / 180)
  Y1 = Y - 240 * Sin(U * 6 * 3.14 / 180)
  X2 = X + 220 * Cos(U * 6 * 3.14 / 180)
  Y2 = Y - 220 * Sin(U * 6 * 3.14 / 180)
  X3 = X + 210 * Cos(U * 6 * 3.14 / 180)
  Y3 = Y - 210 * Sin(U * 6 * 3.14 / 180)
  If U Mod 5 = 0 Then
  Form1.Line (X1, Y1)-(X3, Y3), vbRed
  Else
  Form1.Line (X1, Y1)-(X2, Y2), vbGreen
  End If
  Next
   
End Sub

Private Sub Timer1_Timer()
S = Timer
  S1 = S \ 3600
  S2 = (S Mod 3600) \ 60
  S3 = S Mod 60
   

  If S1 < 4 Then
  Z1 = 90 - S1 * 30 - S2 / 2
  Else
  Z1 = 450 - S1 * 30 - S2 / 2
  End If

  If S2 < 16 Then
  Z2 = 90 - S2 * 6
  Else
  Z2 = 450 - S2 * 6
  End If

  If S3 < 16 Then
  Z3 = 90 - S3 * 6
  Else
  Z3 = 450 - S3 * 6
  End If

  X1 = X + 160 * Cos(Z1 * 3.14 / 180)
  Y1 = Y - 160 * Sin(Z1 * 3.14 / 180)

  X2 = X + 190 * Cos(Z2 * 3.14 / 180)
  Y2 = Y - 190 * Sin(Z2 * 3.14 / 180)

  X3 = X + 210 * Cos(Z3 * 3.14 / 180)
  Y3 = Y - 210 * Sin(Z3 * 3.14 / 180)

  Line1.X1 = X
  Line1.Y1 = Y
  Line1.X2 = X1
  Line1.Y2 = Y1
   
  Line2.X1 = X
  Line2.Y1 = Y
  Line2.X2 = X2
  Line2.Y2 = Y2
   
  Line3.X1 = X
  Line3.Y1 = Y
  Line3.X2 = X3
  Line3.Y2 = Y3
   
End Sub