VB.NET codePrivate Sub DrawArc(byRef G as Graphics, byval P as Point, byval R as single,byval S as single,byval E as single)
G.DrawArc(New Pen(Color.Red, 2),P.x-R,P.y-R,R*2,R*2,S,E-S)
end Sub
[/Quote]
Private Sub DrawArc(byRef G as Graphics, byval P as Point, byval R as single,byval S as single,byval E as single)
G.DrawArc(New Pen(Color.Red, 2),P.x-R,P.y-R,R*2,R*2,S,E-S)
end Sub