Private Sub Diagramm4()
 
   Dim xv() As Integer = _
        {100, 100, 160, 160, 210, 210, 260, 260, 310, 310}
   Dim yv() As Integer = _
        {8000, 5000, 8000, 5200, 8000, 6000, 8000, 6500, 8000, 7000}
 
   Dim ymax As Integer = yv.Max
 
   With chart1
 
       .Series.Clear()
       .Series.Add("Series1")
 
       .ChartAreas.Clear()
       .ChartAreas.Add("Area1")
 
       With .Series("Series1")
          For i As Integer = 0 To xv.Length - 1
             Dim dp As New DataPoint
 
             dp.XValue = xv(i)
             dp.YValues = {yv(i)}
 
             If xv(i) > 0 And yv(i) < ymax Then
                dp.Label = xv(i).ToString
             End If
 
             If yv(i) = ymax Then
                dp.MarkerStyle = MarkerStyle.Circle
                dp.MarkerSize = 10
                dp.MarkerColor = Color.Red
             Else
                dp.MarkerStyle = MarkerStyle.None
             End If
 
             .Points.Add(dp)                    
          Next i
 
          .ChartType = SeriesChartType.Line
       End With
 
 
       With .ChartAreas("Area1")
           With .AxisY
               .Minimum = 0
               .Maximum = 9000
               .Interval = 1000
               .IntervalType = DateTimeIntervalType.Number
 
               .MinorGrid.Enabled = False
               .MajorGrid.LineDashStyle = ChartDashStyle.Dot
           End With
 
           With .AxisX
              .Minimum = 0
              .Maximum = 400
              .Interval = 50
              .IntervalType = DateTimeIntervalType.Number
 
              .MinorGrid.Enabled = False
              .MajorGrid.LineDashStyle = ChartDashStyle.Dot
          End With
       End With
   End With
 
End Sub