Dim currentDate As DateTime = Me.timepicker.Value
        Dim endDate As DateTime = currentDate.AddHours(9)
        Dim hCount As Integer = CInt(DateDiff(DateInterval.Hour, currentDate, _
          endDate))
        For i = 0 To hCount
            DataGridView1.Rows.Add(hCount, currentDate.AddHours(i).ToString( _
              "dd.MM.yyyy HH:mm"))
        Next