Private Function PrintCircle(Cicle As Shape)
 
    Dim Radius!, X!
    Radius = Cicle.Width / 2 + 120
    Me.AutoRedraw = True
    For X = -Radius To Radius
        Me.Line (Cicle.Left + Cicle.Width / 2 + X, Cicle.Top - 5 + Cicle.Width _
          / 2)-Step(0, -Sqr(Radius ^ 2 - X * X)), RGB(255 / 2 / Radius * (X + _
          Radius), 255 - 255 / 2 / Radius * (X + Radius), 0)
    Next X
 
End Function
 
Private Sub Form_Load()
 
    For i = 0 To 20
        If i <> 0 Then Load Strich(i)
        Strich(i).Visible = True
        Strich(i).X1 = shKreis(0).Left + (shKreis(0).Width / 2) - 500 * Round( _
          Cos(9 * i * pi / 180), 3)
        Strich(i).X2 = shKreis(0).Left + (shKreis(0).Width / 2) - 400 * Round( _
        Cos(9 * i * pi / 180), 3)
        Strich(i).Y1 = shKreis(0).Top + (shKreis(0).Width / 2) - 500 * Round( _
        Sin(9 * i * pi / 180), 3)
        Strich(i).Y2 = shKreis(0).Top + (shKreis(0).Width / 2) - 400 * Round( _
        Sin(9 * i * pi / 180), 3)
    Next
 
End Sub
 
Private Function TachCpu(Temp As Long)
 
    If Temp > 70 Or Temp < 10 Then Exit Function
    lblShow(0).Caption = Temp & "°C"
    lnZeiger(0).X2 = shKreis(0).Left + (shKreis(0).Width / 2) - 500 * Round(Cos( _
      (2.9833 * Temp - 28.833) * pi / 180), 3)
    lnZeiger(0).Y2 = shKreis(0).Top + (shKreis(0).Width / 2) - 500 * Round(Sin(( _
    2.9833 * Temp - 28.833) * pi / 180), 3)
 
End Function