Function ICreateBlockDefinition( _
   ByVal Name As String, _
   ByVal XRefFileName As String, _
   ByVal Instance As Boolean, _
   ByVal SegmentCount As Integer, _
   ByRef Segments As SketchSegment, _
   ByVal PointCount As Integer, _
   ByRef Points As SketchPoint, _
   ByVal NoteCount As Integer, _
   ByRef Notes As Note, _
   ByVal DimensionCount As Integer, _
   ByRef Dimensions As DisplayDimension, _
   ByVal BlockCount As Integer, _
   ByRef Blocks As BlockInstance _
) As BlockDefinition

Dim instance As IDrawingDoc
Dim Name As String
Dim XRefFileName As String
Dim Instance As Boolean
Dim SegmentCount As Integer
Dim Segments As SketchSegment
Dim PointCount As Integer
Dim Points As SketchPoint
Dim NoteCount As Integer
Dim Notes As Note
Dim DimensionCount As Integer
Dim Dimensions As DisplayDimension
Dim BlockCount As Integer
Dim Blocks As BlockInstance
Dim value As BlockDefinition
 
value = instance.ICreateBlockDefinition(Name, XRefFileName, Instance, SegmentCount, Segments, PointCount, Points, NoteCount, Notes, DimensionCount, Dimensions, BlockCount, Blocks)

BlockDefinition ICreateBlockDefinition( 
   string Name,
   string XRefFileName,
   bool Instance,
   int SegmentCount,
   ref SketchSegment Segments,
   int PointCount,
   ref SketchPoint Points,
   int NoteCount,
   ref Note Notes,
   int DimensionCount,
   ref DisplayDimension Dimensions,
   int BlockCount,
   ref BlockInstance Blocks
)

BlockDefinition^ ICreateBlockDefinition( 
&   String^ Name,
&   String^ XRefFileName,
&   bool Instance,
&   int SegmentCount,
&   SketchSegment^% Segments,
&   int PointCount,
&   SketchPoint^% Points,
&   int NoteCount,
&   Note^% Notes,
&   int DimensionCount,
&   DisplayDimension^% Dimensions,
&   int BlockCount,
&   BlockInstance^% Blocks
)