Function AutoDimension( _
   ByVal EntitiesToDimension As Integer, _
   ByVal HorizontalScheme As Integer, _
   ByVal HorizontalPlacement As Integer, _
   ByVal VerticalScheme As Integer, _
   ByVal VerticalPlacement As Integer _
) As Integer

Dim instance As ISketch
Dim EntitiesToDimension As Integer
Dim HorizontalScheme As Integer
Dim HorizontalPlacement As Integer
Dim VerticalScheme As Integer
Dim VerticalPlacement As Integer
Dim value As Integer
 
value = instance.AutoDimension(EntitiesToDimension, HorizontalScheme, HorizontalPlacement, VerticalScheme, VerticalPlacement)

int AutoDimension( 
   int EntitiesToDimension,
   int HorizontalScheme,
   int HorizontalPlacement,
   int VerticalScheme,
   int VerticalPlacement
)

int AutoDimension( 
&   int EntitiesToDimension,
&   int HorizontalScheme,
&   int HorizontalPlacement,
&   int VerticalScheme,
&   int VerticalPlacement
)