DrawMode property için
🔍http://msdn.microsoft.com/en-us/library/...e.11).aspx

---

DrawStyle property için
🔍http://msdn.microsoft.com/en-us/library/...e.11).aspx
FillStyle property için
🔍http://msdn.microsoft.com/en-us/library/...e.11).aspx
SpecialEffect property için
🔍http://msdn.microsoft.com/en-us/library/...e.11).aspx
ScaleMode property için
🔍http://msdn.microsoft.com/en-us/library/...e.11).aspx

buda rapor ayrıntısına grafik çizmek için

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