Public Sub SetCalSphereData( _
   ByVal X As Double, _
   ByVal Y As Double, _
   ByVal Z As Double, _
   ByVal I As Double, _
   ByVal J As Double, _
   ByVal K As Double, _
   ByVal diam As Double _
)