Public Function New( _
   ByVal in_features As Object, _
   ByVal merge_field As Object, _
   ByVal merge_distance As Object, _
   ByVal out_features As Object _
)

Dim in_features As Object
Dim merge_field As Object
Dim merge_distance As Object
Dim out_features As Object
 
Dim instance As New MergeDividedRoads(in_features, merge_field, merge_distance, out_features)

public MergeDividedRoads( 
   object in_features,
   object merge_field,
   object merge_distance,
   object out_features
)