Private Sub Diagramm3()
 
        Dim xv() As Integer = {50, 125, 180, 240, 265}
        Dim yv() As Integer = {3000, 4500, 5000, 5000, 6000}
 
        With chart1
            .Series.Clear()
            .Series.Add("Series1")
 
            .ChartAreas.Clear()
            .ChartAreas.Add("Area1")
 
            With .Series("Series1")
                For i As Integer = 0 To xv.Length - 1
                    .Points.AddXY(xv(i), yv(i))
                Next i
                .ChartType = SeriesChartType.Line
            End With
 
            With .ChartAreas("Area1").AxisX
                .Minimum = 0
                .Maximum = 300
 
                .MinorGrid.Enabled = False
                .MajorGrid.Interval = 50
                .MajorGrid.LineDashStyle = ChartDashStyle.Dot
 
                With .LabelStyle
                    .IntervalOffset = 0
                    .Interval = 50
                    .IntervalType = DateTimeIntervalType.Number
                End With
 
            End With
 
            With .ChartAreas("Area1").AxisY
 
                .ArrowStyle = AxisArrowStyle.SharpTriangle
 
                .Minimum = 0
                .Maximum = 9000
 
                .MinorGrid.Enabled = False
                .MajorGrid.Interval = 1000
                .MajorGrid.LineDashStyle = ChartDashStyle.Dash
 
                .MinorTickMark.Enabled = False
 
                With .MajorTickMark
                    .Interval = 1000
                    .IntervalOffset = 0
                    .IntervalType = DateTimeIntervalType.Number
                    .LineDashStyle = ChartDashStyle.Solid
                    .TickMarkStyle = TickMarkStyle.OutsideArea
                    .Size = 5
                End With
 
                With .LabelStyle
                    .IntervalOffset = 0
                    .Interval = 1000
                    .IntervalType = DateTimeIntervalType.Number
                End With
 
            End With
 
        End With
 
    End Sub