Dim startDate As New DateTime(2024, 12, 31) 'Ausgangsdatum Jahr, Monat, 
        ' Tag
 
        Dim oDate As Date = DateTime.ParseExact(startDate, "dd.MM.yyyy", _
          Nothing)
        Dim strFirstDay As String = oDate.ToString("dd.MM.yyyy")
        Dim strLastDay As String = oDate.ToString("dd.MM.yyyy")
 
        For x As Integer = 1 To labelanzahl
            oDate = oDate.AddMonths(1).ToString("dd.MM.yyyy")
            Label_Box = New Rectangle(startX, startY, CSng(viertel), txthoehe)
            g.DrawString(oDate.ToString("dd.MM.yyyy"), F10, Brushes.DarkBlue, _
              Label_Box, sf)
            'g.DrawRectangle(pen_Innenrahmen, Label_Box)
            startY += txthoehe
 
            oDate = oDate.AddDays(-1)
        Next