Dim startYear As Integer = 2025
Dim startMonth As Integer = 1
Dim MayDays As Integer
 
For x As Integer = 1 To labelanzahl
  MaxDays = DateTime.DaysInMonth(startYear, startMonth + x - 1)  
  oDate = New DateTime(startYear, startMonth + x - 1, MaxDays)
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de