Private Const PI = 3.141592654
 
Private Sub Timer1_Timer()
    std = Hour(Time)
    Min = Minute(Time)
    sek = Second(Time)    
 
    If std > 12 Then
        std = std - 12
    End If
 
    Picture1.Cls
 
    Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), _
      Picture1.ScaleWidth / 2, vbBlack
 
    'Sekundenzeiger
    alpha = 360 / 60 * sek
    alphaB = alpha * PI / 180
    x = Sin(alphaB) * Picture1.ScaleWidth / 2
    y = Cos(alphaB) * Picture1.ScaleHeight / 2
    Picture1.Line (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2)-( _
      Picture1.ScaleWidth / 2 + x, Picture1.ScaleHeight / 2 - y), vbRed
 
    'Minutenzeiger
    alpha = 360 / 60 * Min
    alphaB = alpha * PI / 180
    x = Sin(alphaB) * Picture1.ScaleWidth / 2 * 0.8
    y = Cos(alphaB) * Picture1.ScaleHeight / 2 * 0.8
    Picture1.Line (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2)-( _
      Picture1.ScaleWidth / 2 + x, Picture1.ScaleHeight / 2 - y), vbBlue
 
    'Stundenzeiger
    alpha = 360 / 12 * std
    alphaB = alpha * PI / 180
    x = Sin(alphaB) * Picture1.ScaleWidth / 2 * 0.6
    y = Cos(alphaB) * Picture1.ScaleHeight / 2 * 0.6
    Picture1.Line (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2)-( _
      Picture1.ScaleWidth / 2 + x, Picture1.ScaleHeight / 2 - y), vbBlack
End Sub