Imports System.Windows.Forms.DataVisualization.Charting
Public Class frmChart
 
    Dim cht As New Chart With {.Parent = Me, .Width = 600}
 
    Private Sub frmChart_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Dim rndm As New Random
 
        cht.ChartAreas.Add("Base")
        Dim s As Series = cht.Series.Add("Messreihe")
        Dim interval As Double = 30
 
        With s
            .ChartArea = cht.ChartAreas(0).Name
            .ChartType = SeriesChartType.Line
 
            Dim ts As New TimeSpan
            For i As Integer = 0 To 60
                'Datenpunkte 
                .Points.AddXY(i * interval, rndm.NextDouble)
            Next i
 
            With cht.ChartAreas(0).AxisX
                .IntervalType = DateTimeIntervalType.Number
                .Interval = interval
                .Minimum = -15
                .Maximum = s.Points.Count * interval
 
                For i As Integer = 0 To s.Points.Count - 1
                    Dim fromposition As Double = _
                              s.Points(i).XValue - interval / 2
                    Dim toposition As Double = _
                              s.Points(i).XValue + interval / 2
 
                    ts = New TimeSpan(0, i * Interval, 0)
 
                    Dim text As String = Space(20) & _
                        (ts.Days * 24 + ts.Hours).ToString("00") & ":" & _
                         ts.Minutes.ToString("00")
 
                    .CustomLabels.Add(fromposition, toposition, text)
                Next i
            End With
        End With
    End Sub
End Class