*****modPieChart.bas*****
Public Const Radius = 1200
Public Const Pi = "3.1415926535897932384626433832795"
Public Function InSector(XPoint As Long, YPoint As Long) As Boolean
Public Function InQuadrant(X As Long, Y As Long, Quadrant As Long) As Boolean
Dim c As Long
Dim MyX As Long
Dim MyY As Long
Dim Angle As Double
Dim X As Long
Dim Y As Long
Public Function PointY(Y As Long) As Long
Public Function PointX(X As Long) As Long
Public Function ReturnY(Y As Long)
Public Function ReturnX(X As Long)