Public Function New( _
   ByVal in_observer_points As Object, _
   ByVal in_target_features As Object, _
   ByVal out_line_feature_class As Object _
)

Dim in_observer_points As Object
Dim in_target_features As Object
Dim out_line_feature_class As Object
 
Dim instance As New ConstructSightLines(in_observer_points, in_target_features, out_line_feature_class)

public ConstructSightLines( 
   object in_observer_points,
   object in_target_features,
   object out_line_feature_class
)