Sub InsertNewNote( _
   ByVal Text As String, _
   ByVal NoLeader As Boolean, _
   ByVal BalloonNote As Boolean, _
   ByVal BentLeader As Boolean, _
   ByVal ArrowStyle As Short, _
   ByVal LeaderSide As Short _
) 

Dim instance As IDrawingDoc
Dim Text As String
Dim NoLeader As Boolean
Dim BalloonNote As Boolean
Dim BentLeader As Boolean
Dim ArrowStyle As Short
Dim LeaderSide As Short
 
instance.InsertNewNote(Text, NoLeader, BalloonNote, BentLeader, ArrowStyle, LeaderSide)

void InsertNewNote( 
   string Text,
   bool NoLeader,
   bool BalloonNote,
   bool BentLeader,
   short ArrowStyle,
   short LeaderSide
)

void InsertNewNote( 
&   String^ Text,
&   bool NoLeader,
&   bool BalloonNote,
&   bool BentLeader,
&   short ArrowStyle,
&   short LeaderSide
)