Dim i As Int
Dim Listview1 As ListView
'Listview1.Initialize("Listview1") 'must be commented if created in the designer
Dim MyDate(60) As String
DateTime.DateFormat = "dd.MM.yyyy"
For i=0 To 59 '60 dates
MyDate(i)=DateTime.Date(DateTime.Add(DateTime.Dateparse("8.10.2012"),0,0,i))
Listview1.AddSingleLine (i & ". " & MyDate(i))
Next
' Msgbox(MyDate(0) & " " & MyDate(1) & " " & MyDate(2) & " " & MyDate(3) & " " & MyDate(4),"")
Msgbox(MyDate(18) & " " & MyDate(19) & " " & MyDate(20) & " " & MyDate(21) & " " & MyDate(22),"")