Function AddLayer( _
   ByVal NameIn As String, _
   ByVal DescIn As String, _
   ByVal ColorIn As Integer, _
   ByVal StyleIn As Integer, _
   ByVal WidthIn As Integer _
) As Integer

Dim instance As ILayerMgr
Dim NameIn As String
Dim DescIn As String
Dim ColorIn As Integer
Dim StyleIn As Integer
Dim WidthIn As Integer
Dim value As Integer
 
value = instance.AddLayer(NameIn, DescIn, ColorIn, StyleIn, WidthIn)

int AddLayer( 
   string NameIn,
   string DescIn,
   int ColorIn,
   int StyleIn,
   int WidthIn
)

int AddLayer( 
&   String^ NameIn,
&   String^ DescIn,
&   int ColorIn,
&   int StyleIn,
&   int WidthIn
)