Dim instance As IDrawingDoc
Dim P0 As System.Object
Dim P1 As System.Object
Dim P2 As System.Object
Dim P3 As System.Object
Dim P4 As System.Object
Dim Val As System.Double
Dim PrimPrec As System.Integer
Dim Text As System.String
Dim TextPoint As System.Object
Dim Angle As System.Double
Dim TextHeight As System.Double
Dim Prefix As System.String
Dim Suffix As System.String
Dim Callout1 As System.String
Dim Callout2 As System.String
Dim TolType As System.Integer
Dim TolMin As System.String
Dim TolMax As System.String
Dim TolPrec As System.Integer
Dim ArrowSize As System.Double
Dim ArrowStyle As System.Integer
Dim ArrowDir As System.Integer
Dim WitnessGap As System.Double
Dim WitnessOvershoot As System.Double
Dim DualDisplay As System.Boolean
Dim DualPrec As System.Integer
Dim value As System.Object
value = instance.CreateLinearDim3(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, DualPrec) |