Private Sub panChart_Paint(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles panChart.Paint
        Dim myWidth As Integer = panChart.Width - 1
        Dim myHeight As Integer = CInt(myWidth / 2)
 
        Dim rect As Rectangle = New Rectangle(0, 0, myWidth, myHeight)
        Dim brush As SolidBrush
        Dim lastAngle As Double
 
        ' Mittelpunkt des Diagramms berechnen
        Dim m As New Point(CInt(rect.Width / 2), CInt(rect.Height / 2))
 
        For Each segment As PieChartSegment In Segments
            ' Segment des Diagrammes zeichnen
            brush = New SolidBrush(segment.ColorPrimary)
 
            e.Graphics.FillPie(brush, rect, CSng(lastAngle), CSng(360 * _
              segment.Value / MaxValue))
            lastAngle += 360 * segment.Value / MaxValue
 
            ' Koordinaten in den Mittelpunkt legen um den Punkt der Ellipse 
            ' mittels der Parameterform berechnen zu können
            e.Graphics.TranslateTransform(m.X, m.Y)
 
            ' Schnittpunkt zwischen 2 Segmenten berechnen und zeichnen
            Dim r As New Rectangle(CInt(m.X * Math.Cos(lastAngle)), CInt(m.Y * _
              Math.Sin(lastAngle)), 2, 2)
            e.Graphics.DrawRectangle(Pens.Black, r)
 
            ' Mittelpunkt wieder in Ausgangsposition setzen
            e.Graphics.TranslateTransform(-m.X, -m.Y)
        Next
 
        ' Ellipse zeichnen
        e.Graphics.DrawEllipse(Pens.Black, rect)
    End Sub