Sub SetUnits( _
   ByVal UType As System.Short, _
   ByVal FractBase As System.Short, _
   ByVal FractDenom As System.Short, _
   ByVal SigDigits As System.Short, _
   ByVal RoundToFraction As System.Boolean _
) 

Dim instance As IModelDoc
Dim UType As System.Short
Dim FractBase As System.Short
Dim FractDenom As System.Short
Dim SigDigits As System.Short
Dim RoundToFraction As System.Boolean
 
instance.SetUnits(UType, FractBase, FractDenom, SigDigits, RoundToFraction)

void SetUnits( 
   System.short UType,
   System.short FractBase,
   System.short FractDenom,
   System.short SigDigits,
   System.bool RoundToFraction
)

void SetUnits( 
&   System.short UType,
&   System.short FractBase,
&   System.short FractDenom,
&   System.short SigDigits,
&   System.bool RoundToFraction
)