iyi günler arkadaşlar
bilgisayarcı nın örneğinde

pb.DrawCircle 10, 10, 400, vbWhite

ile daire çizilince dairenin içi beyaz dış çizgisi kırmızı oluyor
acaba kırmızı olmasını nasıl belirtiyoruz
mesela dairenin dış çizgisinin mavi olması için ne yapmalıyız
birde
sadece çember yapmak için ne yazmalıyız

forumdaki bir örnekten aldığım bir uygulama
raporayrıntısına daire (veya çember)çiziyor
fakat ben bu kodların nasıl çalıştığını anlayamadım
mesala
çemberin yarıçapını nereden değiştireceğiz
dilimlenen kısmın oranını nasıl değiştireceğiz
renkleri nereden değiştireceğiz

--------
Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
Const conPI = 3.14159265359
Dim sngHCtr As Single, sngVCtr As Single
Dim sngRadius As Single
Dim sngStart As Single, sngEnd As Single

sngHCtr = Me.ScaleWidth / 2 ' Horizontal center.
sngVCtr = Me.ScaleHeight / 2 ' Vertical center.
sngRadius = Me.ScaleHeight / 3 ' Circle radius.
' Draw circle.
Me.Circle (sngHCtr, sngVCtr), sngRadius
sngStart = -0.00000001 ' Start of pie slice.
sngEnd = -2 * conPI / 3 ' End of pie slice.
Me.FillColor = RGB(255, 0, 0) ' Color pie slice red.
Me.FillStyle = 0 ' Fill pie slice.
' Draw pie slice within circle.
Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd
End Sub
------------
acaba herbir satır ne iş yapıyor
yardımcı olacak arkadaşlara teşekkürler