'-------------------------------------------------
'Nigel <taypre@sympatico.ca>
'March 01, 1999
'
'This was in response to a newsgroup question
'A person wanted a 3D pie without an OCX
'It could stand some improvement, but it's a start
'-------------------------------------------------

Private Sub Command1_Click()
Dim PI, circStart, circEnd, gPercent, jPercent, nX, nY, rad
nX = Picture1.ScaleWidth \ 2
nY = Picture1.ScaleHeight \ 2

rad = 1000
gPercent = 75
jPercent = 25

PI = 22 / 7
circStart = (gPercent * PI) / 180
circEnd = (jPercent * PI) / 180

Picture1.DrawWidth = 1
Picture1.FillStyle = 0
Picture1.FillColor = vbBlue
'The For - Next is not nested for clarity
    For i = 1 To 200
    Picture1.Circle (nX, nY), rad, vbRed, -circStart, -circEnd, -1
    nX = nX + 1
    nY = nY + 1
Next i

Picture1.FillColor = vbRed
For j = 1 To 200
    'Adjusting the nX and nY moves the wedge
    Picture1.Circle (nX + 200, nY - 500), rad, vbBlue, -circEnd, -circStart, -1
    nX = nX + 1
    nY = nY + 1
Next j

End Sub