Public Sub SetCalCircleVector( _
   ByVal I As Double, _
   ByVal J As Double, _
   ByVal K As Double _
)