Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim sek As Int32 = My.Computer.Clock.LocalTime.Second             _
        'aktuelle Sekunde
        With e.Graphics
            .SmoothingMode = Drawing2D.SmoothingMode.HighQuality        _
              'Antialiasing benutzen
            .TranslateTransform(-195, -195)                             _
            'Mittelpunkt nach 0,0 verschieben
            .RotateTransform(-90 + sek * 6, MatrixOrder.Append)         'Bild 
            ' auf Sekundenposition drehen
            .TranslateTransform(195, 195, MatrixOrder.Append)           _
              'Mittelpunkt zurücknehmen
            .DrawLine(New Pen(Color.Red, 4), 195, 195, 380, 195)        'den 
            ' Sekundenzeiger zeichnen
            .FillEllipse(Brushes.Black, 185, 185, 20, 20)               _
              'Sekundenzeigerkreis zeichnen
        End With
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(400, 420)
        Timer1.Enabled = True
        Timer1.Interval = 1000
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Me.Invalidate()
    End Sub
End Class