Dim currentDate As DateTime = DateTime.Now
        Dim i As Double
        Dim delta As Double = 1.5
        Dim hCount As Integer = 5 'CInt(DateDiff(DateInterval.Hour, 
        ' currentDate, endDate))
 
        For i = 0 To hCount Step delta
            MessageBox.Show(currentDate.AddHours(i).ToString("dd.MM.yyyy" & _
              "HH:mm"))
        Next