Dim startYear As Integer = 2025
        Dim startMonth As Integer = 1
        Dim MaxDays As Integer
        Dim oDate As Date
 
        For x As Integer = 1 To labelanzahl
            MaxDays = DateTime.DaysInMonth(startYear, startMonth + x - 1)
            oDate = New DateTime(startYear, startMonth + x - 1, MaxDays)
            'Schreibbox erstellen
            Label_Box = New Rectangle(startX, startY, CSng(viertel), txthoehe)
            g.DrawString(oDate.ToShortDateString, F10, Brushes.DarkBlue, _
              Label_Box, sf)
            'g.DrawRectangle(pen_Innenrahmen, Label_Box)
            startY += txthoehe
        Next