Private Sub Form_Load()
Dim radius1, radius2 As Integer
Dim c As Integer
Dim Wnk, i, j As Double
Static Pos1&
 
radius1 = 200
radius2 = 150
erststart = True
AutoRedraw = True
Me.ScaleMode = vbPixels
Form1.DrawWidth = 3
Pi = 4 * Atn(1)
 
' die beiden Zeiger platzieren
Line1.X1 = Round(Me.ScaleWidth / 2, 0)
Line1.Y1 = Round(Me.ScaleHeight / 2, 0)
Line1.X2 = Round(Me.ScaleWidth / 2 + radius1, 0)
Line1.Y2 = Round(Me.ScaleHeight / 2, 0)
 
Line2.X1 = Round(Me.ScaleWidth / 2, 0)
Line2.Y1 = Round(Me.ScaleHeight / 2, 0)
Line2.X2 = Round(Me.ScaleWidth / 2 + radius2, 0)
Line2.Y2 = Round(Me.ScaleHeight / 2, 0)
 
Label1.Caption = Line1.X2
Label2.Caption = Line1.Y2
Label11.Caption = Line2.X2
Label12.Caption = Line2.Y2
 
' die Uhr selbst
Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), radius1
Me.FillStyle = 0
 
'kleine Kreise für die ganzen Stunden
For c = 0 To 370
  Wnk = Pi / 180 * Pos1
 
  i = Me.ScaleWidth / 2 + radius1 * Cos(Wnk)
  j = Me.ScaleHeight / 2 + radius1 * Sin(Wnk)
 
  If Pos1 = 0 Or Pos1 = 90 Or Pos1 = 180 Or Pos1 = 270 Then
        Circle (i, j), 6
  End If
  If Pos1 = 30 Or Pos1 = 60 Or Pos1 = 120 Or Pos1 = 150 Or Pos1 = 210 _
  Or Pos1 = 240 Or Pos1 = 300 Or Pos1 = 330 Then
        Circle (i, j), 2
  End If
  Pos1 = (Pos1 + 1) Mod 360
Next c
End Sub

mit freundlichen Grüßen
Sven