Function SetUnits( _
   ByVal UseDoc As System.Boolean, _
   ByVal UType As System.Integer, _
   ByVal FractBase As System.Integer, _
   ByVal FractDenom As System.Integer, _
   ByVal RoundToFraction As System.Boolean _
) As System.Integer

Dim instance As IDisplayDimension
Dim UseDoc As System.Boolean
Dim UType As System.Integer
Dim FractBase As System.Integer
Dim FractDenom As System.Integer
Dim RoundToFraction As System.Boolean
Dim value As System.Integer
 
value = instance.SetUnits(UseDoc, UType, FractBase, FractDenom, RoundToFraction)

System.int SetUnits( 
   System.bool UseDoc,
   System.int UType,
   System.int FractBase,
   System.int FractDenom,
   System.bool RoundToFraction
)

System.int SetUnits( 
&   System.bool UseDoc,
&   System.int UType,
&   System.int FractBase,
&   System.int FractDenom,
&   System.bool RoundToFraction
)