Dim n As Integer
  Dim y As Short = -20
  Chart1.Series(0).Name = "Temperatur"
  Chart1.ChartAreas(0).AxisX.Minimum = 0
  Chart1.ChartAreas(0).AxisX.Maximum = 24
 
  Chart1.ChartAreas(0).AxisX.Interval = 1
  Chart1.ChartAreas(0).AxisX.LabelStyle.Angle = -90
 
  For n = 1 To 1440 Step 1
     Chart1.Series(0).Points.AddXY(n / 60, y + 50 * Rnd())
  Next