Public Structure Segment
        Friend Größe As Integer
        Friend Farbe As Brush
 
        Public Sub New(ByVal Größe As Integer, ByVal Farbe As Brush)
            Me.Größe = Größe
            Me.Farbe = Farbe
        End Sub
    End Structure
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
        Me.ResizeRedraw = True
        Me.m_x = Me.Width
        Me.m_y = Me.Height
        ' ...
    End Sub
 
    Public Sub DrawPieChart(ByVal Segmente() As Segment)
        Dim i, Temp As Integer
        Temp = 0
        For i = 0 To Segmente.GetLength(0) - 1
            Temp += Segmente(i).Größe
        Next
        If Temp <> 360 Then
            Throw New Exception("Summe der Segmente ungleich 100. Kreisdiagramm" & _
              "" & _
            "kann nicht gezeichnet werden.")
            Exit Sub
        End If
        Dim Größe As Integer = Segmente.GetLength(0) - 1
        Dim bmp As New Bitmap(m_x, m_y)
        Dim gfx As Graphics = Graphics.FromImage(bmp)
        Temp = 0
        gfx.SmoothingMode = SmoothingMode.HighQuality
        For i = 0 To Größe
            gfx.FillPie(Segmente(i).Farbe, 0, 0, Me.m_x, Me.m_y, Temp, _
            Segmente(i).Größe)
            Temp += Segmente(i).Größe
        Next
        'Aufräumen
        gfx.Dispose()
        'Anzeigen
        Me.Image = bmp
        'Speichern?
        If m_AutoSaveToFile Then
            ' Hier Speicherung des Bitmap festlegen
        End If
    End Sub