Hallo zusammen,
ich habe mir in einer UserForm eine Uhr eingefügt.
Standardmäßig beginnt die Anzeige auf 3Uhr.
Sie soll die Zahlen aber wie eine richtige Uhr nach 12Uhr beginnend anzeigen.
Wie muß ich das anstellen.

Ich habe folgenden Code:

Sub ErstellenUhr()

Dim Obj_LblSekunde As MSForms.Label ' Variable für Objekt als neues Label

Dim Startzeit3 As Integer, n3 As Integer, X3 As Double, Y3 As Double
Dim Radius3 As Integer, Winkeldrehung3 As Double, Winkel3 As Double
Dim AnzElemente3 As Integer, Mittelpunkt3Left As Integer, Mittelpunkt3Top As Integer

Radius3 = 78
Winkeldrehung3 = 6
AnzElemente3 = 360 / Winkeldrehung3
Mittelpunkt3Left = Radius3
Mittelpunkt3Top = Radius3
Startzeit3 = 1

For n3 = 1 To AnzElemente3
Y3 = Radius3 * Sin(Winkel3 / 180 * Application.Pi)
X3 = Radius3 * Cos(Winkel3 / 180 * Application.Pi)
Set Obj_LblSekunde = _
Frm_Zeit.Frm_UhrzeitSekunde.Controls.Add("Forms.Label.1", "txtDemo1", True)
With Obj_LblSekunde
.Left = Mittelpunkt3Left + X3
.Top = Mittelpunkt3Top + Y3
.Caption = Startzeit3
.AutoSize = True
End With
ReDim Preserve CoSekunde(0 To IntSekunde) ' Neudimensionierung Array Label
Set CoSekunde(IntSekunde).Label = Obj_LblSekunde ' Label zu Klasse zusammenfassen
IntSekunde = IntSekunde + 1 ' Schleifenzähler Label erhöhen
Winkel3 = Winkel3 + Winkeldrehung3
If Startzeit3 = 60 Then
Startzeit3 = Startzeit3 + 1
Else
Startzeit3 = 60 - (n3 * 1)
End If
Next
Set Obj_LblSekunde = Nothing

End Sub

Gruß
Siegfried