Private UhrPunkt As New PointF(150, 150)
    Private UhrRadius As Integer = 100
    Private Drehwinkel As Decimal = 0
 
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        With e.Graphics
            .SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
 
            Dim PenBlack As New Pen(Color.Black)
            Dim ZeigerPunkt As New PointF(UhrPunkt.X - UhrRadius * Sin( _
              Drehwinkel), UhrPunkt.Y - UhrRadius * Cos(Drehwinkel))
 
            .DrawEllipse(PenBlack, UhrPunkt.X - UhrRadius, UhrPunkt.Y - _
              UhrRadius, UhrRadius * 2, UhrRadius * 2)
            .DrawString(Now.Second, Font, New SolidBrush(Color.Black), 0, 0)
            .DrawString(Drehwinkel, Font, New SolidBrush(Color.Black), 0, 20)
            .DrawLine(PenBlack, UhrPunkt, ZeigerPunkt)
        End With
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Drehwinkel = -(2 * PI) / 60 * Now.Second
        Invalidate()
    End Sub