Public Sub Diagramm(ByVal cht As Chart, ByVal dt As DataTable)
 
        cht.DataSource = dt
 
        cht.Series.Clear()
        cht.Series.Add("Series1")
 
        cht.ChartAreas.Clear()
        cht.ChartAreas.Add("Area1")
 
        With cht.Series("Series1")
            .ChartArea = "Area1"
            .XValueMember = dt.Columns(0).ColumnName
            .YValueMembers = dt.Columns(1).ColumnName
            .ChartType = SeriesChartType.Point
        End With
 
    End Sub