Public Sub SetGeneralParameters( _
   ByVal I As Long, _
   ByVal v As Double _
)