Another Tip...to Increase the thickness of the arc...change your form's drawwidth property like..

Me.Drawwidth = 10