' Controls: MSChart
 
Private Sub Form_Load()
 
  MSChart1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
  MSChart1.chartType = VtChChartType2dPie
  MSChart1.ShowLegend = True
 
End Sub

' Controls: Picturebox
 
Private Sub Form_Load()
 
  Dim Txt$
 
  Me.ScaleMode = vbPixels
  With Picture1
    .Move 4, 4, 600, 600
    .ScaleMode = vbPixels
    .AutoRedraw = True
  End With
 
  Txt = CStr(100) & " %"
  Call Kreis(Picture1, 150, 150, 100, vbYellow, Txt)
  Call Kreis(Picture1, 350, 150, 80, RGB(200, 255, 200), Txt)
 
End Sub
 
Private Sub Kreis(DestPic As PictureBox, XPos As Single, YPos As Single, Radius _
  As Single, Farbe As Long, Txt As String)
 
  With DestPic
    .FillStyle = vbFSSolid
    .FillColor = Farbe
    DestPic.Circle (XPos, YPos), Radius, vbBlack
    .FillStyle = vbFSTransparent
    .FontSize = 14
    .FontBold = True
    .ForeColor = vbRed
    .CurrentX = XPos - .TextWidth(Txt) / 2
    .CurrentY = YPos - .TextHeight(Txt) / 2
    DestPic.Print Txt
  End With
 
End Sub

Gruss,

Zardoz