01.Dim arrDate As New List(Of Date)
02.Dim dFromDate As Date = Convert.ToDateTime("28-Jan-2014")
03.Dim dToDate As Date = dFromDate.AddMonths(1)
04.
05.Dim dDate As DateTime = dFromDate
06.
07.While (dDate <= dToDate)
08. arrDate.Add(dDate.AddDays(1))
09.End While
10.
11.For Each item In arrDate
12. Console.Write(item)
13.Next
