怎么间隔一个小时在页面上打印当天时间

假如当前时间是8:15
我用什么方法可以在页面上打印出一天的时间,间隔时间是一个小时
比如开始时间是8:30
在屏幕上将看到
8:15 9:15 10:15
我用下面的方法打印,可是时间不知道怎么才能设置时间到8:15
下面的方法时间只能到天

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
Dim myDT As New DateTime(2002, 4, 4, New GregorianCalendar)
Dim myCal As Calendar = CultureInfo.InvariantCulture.Calendar
For i = 1 To 25
myDT = myCal.AddHours(myDT, 1)
Response.Write(myCal.GetHour(myDT) & " ")
Next
End Sub