'mein Array für die 60er Einteilung und der Ausgangspunkt für den Mittelpunkt
Dim x(60), y(60) As Double
Dim ausgang As Integer = 150
 
'bei Klick auf die Form gehts los oder wird angehalten
Private Sub Form1_Click(sender As Object, e As System.EventArgs) Handles _
  Me.Click
        If zeit.Enabled = False Then
            zeit.Interval = 100
            zeit.Enabled = True
            zeit.Start()
        Else
            zeit.Stop()
            zeit.Enabled = False
        End If
 
 
 
    End Sub
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Dim grad As Integer = 270                              'ich fange oben 
        ' an 12 Uhr
        Dim bogenmass As Double                                
        Dim z As Integer = 1
        'bogenmass = 6.2831853071 / (360 / grad)              '2*pi / 360
 
        Dim n As Byte = 0                                     'mein Zähler für 
        ' die weißen Felder
 
        For z = 0 To 60
            bogenmass = 6.2831853071 / (360 / grad)            'hier wird das 
            ' Array gefüllt mit 
            x(z) = 150 + 100 * Math.Cos(bogenmass)              '60 Punkten
            y(z) = 150 + 100 * Math.Sin(bogenmass)
            grad = grad + 6                                    '1 Minute weiter 
            ' gehen
        Next
 
 
 
        Dim ball(60) As PictureBox                              '60 PBoxen 
        ' erstellen
 
        For z = 0 To 20
            ball(z) = New PictureBox
            Me.Controls.Add(ball(z))
            ball(z).Height = 5
            ball(z).Width = 5
            ball(z).Top = x(z)
            ball(z).Left = y(z)
            If n = 6 Then
                ball(z).BackColor = Color.White                 'jede 5. bitte 
                ' in weiß
                n = 1
            Else
                ball(z).BackColor = Color.Black                 'alle anderen 
                ' schwarz
            End If
            ball(z).Show()
            n = n + 1
        Next
 
        stunde.X1 = ausgang                                     'alle 3 Zeiger 
        ' in die Mitte
        stunde.Y1 = ausgang
        minute.X1 = ausgang
        minute.Y1 = ausgang
        sekunde.X1 = ausgang
        sekunde.Y1 = ausgang
 
 
    End Sub
 
    Sub uhr_stellen()
 
        Dim extra_stunde As Double                       'damit der 
        ' Stundenzeiger langsam mitgeht
        extra_stunde = CInt(Now.Minute / 12)             'abhängig der 
        ' verstrichenen Minuten
 
        If Now.Hour < 13 Then
            stunde.X2 = x(Now.Hour * 5 + extra_stunde)
            stunde.Y2 = y(Now.Hour * 5 + extra_stunde)
        End If
        If Now.Hour > 12 Then
            stunde.X2 = x((Now.Hour - 12) * 5 + extra_stunde)
            stunde.Y2 = y((Now.Hour - 12) * 5 + extra_stunde)
        End If
 
        minute.X2 = x(Now.Minute)        'bei 12 Minuten zeigt der Zeiger auf 
        ' die 12. Pbox
        minute.Y2 = y(Now.Minute)
 
        sekunde.X2 = x(Now.Second)       'siehe Minutenzeiger
        sekunde.Y2 = y(Now.Second)
 
    End Sub