Dim oV2Pie As New Graphing.V3.Pie.PieChart()
        Dim renderer As New Render
 
 
 
 
        With oV2Pie
            .PieSliceCollection.Clear()
            'Specify the exact size
            .KeyTitle = "FSK-Statistik"
            .KeyTitleFontStyle = FontStyle.Bold
            .KeyTitleFontName = "Arial Black"
            .KeyTitleFontSize = 20
            .KeyFontName = "Arial Bold"
            .KeyFontSize = 16
            .KeyBackColor = Color.White
            .KeyTitleColor = Color.DarkRed
            .ImageSize = New Size(Me.Width, Me.Height)
            'Or Auto size
            .AutoSize = False
            .Diameter = 500
            .Thickness = 5
            'Background color for the chart
            .Color = Color.White
            'Adds a border around the pie.
            .GraphBorder = True
            'Adding pieces is fairly straight forward.
            sqlart = "Select Option.FSK from [Option]"
            rs1 = db1.OpenRecordset(sqlart)
            sql1 = "Select Farben from [Option]"
            rs3 = db1.OpenRecordset(sql1)
            rs3.MoveFirst()
 
 
            If rs1.RecordCount > 0 Then
                rs1.MoveFirst()
                While Not rs1.EOF()
                    If rs1("FSK").Value Is DBNull.Value Then
 
                    Else
                        test = rs1("FSK").Value
                        sql = "Select * from Videoliste where FSK = " & test & _
                          ""
                        rs2 = db1.OpenRecordset(sql)
                        If rs2.RecordCount > 0 Then
                            rs2.MoveLast()
                            ergv = rs2.RecordCount
                            rs2.MoveFirst()
                            test = "FSK" & test
                            .PieSliceCollection.Add(New _
                              Graphing.V3.Pie.PieSlice(ergv, Color.FromArgb(rs3( _
                              "Farben").Value), test & ":     " & Format(ergv, _
                              "##0")))
                            rs3.MoveNext()
                        End If
                    End If
 
                    rs1.MoveNext()
                End While
            End If
        End With
 
        PictureBox1.Image = renderer.DrawChart(oV2Pie)
        PictureBox2.Image = renderer.DrawKey(oV2Pie)

.ImageSize = New Size(Me.Width, Me.Height)

Gruss Caddy