Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim d As New DateTime(2007, 1, 1)
        Dim ed As DateTime = d.AddYears(1)
 
        Do While d < ed
            Listbox1.Items.Add(d.ToString("dd.MM.yyyy"))
            d = d.AddDays(1)
        Loop
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist