Function ICreateLinearDim3( _
   ByRef P0 As Double, _
   ByRef P1 As Double, _
   ByRef P2 As Double, _
   ByRef P3 As Double, _
   ByRef P4 As Double, _
   ByVal Val As Double, _
   ByVal PrimPrec As Integer, _
   ByVal Text As String, _
   ByRef TextPoint As Double, _
   ByVal Angle As Double, _
   ByVal TextHeight As Double, _
   ByVal Prefix As String, _
   ByVal Suffix As String, _
   ByVal Callout1 As String, _
   ByVal Callout2 As String, _
   ByVal TolType As Integer, _
   ByVal TolMin As String, _
   ByVal TolMax As String, _
   ByVal TolPrec As Integer, _
   ByVal ArrowSize As Double, _
   ByVal ArrowStyle As Integer, _
   ByVal ArrowDir As Integer, _
   ByVal WitnessGap As Double, _
   ByVal WitnessOvershoot As Double, _
   ByVal DualDisplay As Boolean, _
   ByVal DualPrecision As Integer _
) As DisplayDimension

Dim instance As IDrawingDoc
Dim P0 As Double
Dim P1 As Double
Dim P2 As Double
Dim P3 As Double
Dim P4 As Double
Dim Val As Double
Dim PrimPrec As Integer
Dim Text As String
Dim TextPoint As Double
Dim Angle As Double
Dim TextHeight As Double
Dim Prefix As String
Dim Suffix As String
Dim Callout1 As String
Dim Callout2 As String
Dim TolType As Integer
Dim TolMin As String
Dim TolMax As String
Dim TolPrec As Integer
Dim ArrowSize As Double
Dim ArrowStyle As Integer
Dim ArrowDir As Integer
Dim WitnessGap As Double
Dim WitnessOvershoot As Double
Dim DualDisplay As Boolean
Dim DualPrecision As Integer
Dim value As DisplayDimension
 
value = instance.ICreateLinearDim3(P0, P1, P2, P3, P4, Val, PrimPrec, Text, TextPoint, Angle, TextHeight, Prefix, Suffix, Callout1, Callout2, TolType, TolMin, TolMax, TolPrec, ArrowSize, ArrowStyle, ArrowDir, WitnessGap, WitnessOvershoot, DualDisplay, DualPrecision)

DisplayDimension ICreateLinearDim3( 
   ref double P0,
   ref double P1,
   ref double P2,
   ref double P3,
   ref double P4,
   double Val,
   int PrimPrec,
   string Text,
   ref double TextPoint,
   double Angle,
   double TextHeight,
   string Prefix,
   string Suffix,
   string Callout1,
   string Callout2,
   int TolType,
   string TolMin,
   string TolMax,
   int TolPrec,
   double ArrowSize,
   int ArrowStyle,
   int ArrowDir,
   double WitnessGap,
   double WitnessOvershoot,
   bool DualDisplay,
   int DualPrecision
)

DisplayDimension^ ICreateLinearDim3( 
&   double% P0,
&   double% P1,
&   double% P2,
&   double% P3,
&   double% P4,
&   double Val,
&   int PrimPrec,
&   String^ Text,
&   double% TextPoint,
&   double Angle,
&   double TextHeight,
&   String^ Prefix,
&   String^ Suffix,
&   String^ Callout1,
&   String^ Callout2,
&   int TolType,
&   String^ TolMin,
&   String^ TolMax,
&   int TolPrec,
&   double ArrowSize,
&   int ArrowStyle,
&   int ArrowDir,
&   double WitnessGap,
&   double WitnessOvershoot,
&   bool DualDisplay,
&   int DualPrecision
)