Dim currentDate As DateTime = DateTime.Now
        Dim lDate As New List(Of DateTime)
        Dim i As Double
        Dim delta As Double = 1.5
        Dim hCount As Integer = 5
 
 
        For i = 0 To hCount Step delta
            If lDate.Exists(Function(x) x = currentDate.AddHours(i)) = False _
              Then
                lDate.Add(currentDate.AddHours(i))
                MessageBox.Show(lDate.Item(lDate.Count - 1).ToString( _
                  "dd.MM.yyyy HH:mm"))
            End If
        Next
        For i = 0 To hCount + 2 Step delta
            If lDate.Exists(Function(x) x = currentDate.AddHours(i)) = False _
              Then
                lDate.Add(currentDate.AddHours(i))
                MessageBox.Show(lDate.Item(lDate.Count - 1).ToString( _
                  "dd.MM.yyyy HH:mm"))
            End If
        Next