Public Function New( _
   ByVal in_table As Object, _
   ByVal out_featureclass As Object, _
   ByVal x_field As Object, _
   ByVal y_field As Object, _
   ByVal distance_field As Object, _
   ByVal distance_units As String, _
   ByVal bearing_field As Object, _
   ByVal bearing_units As String, _
   ByVal line_type As String _
)

Dim in_table As Object
Dim out_featureclass As Object
Dim x_field As Object
Dim y_field As Object
Dim distance_field As Object
Dim distance_units As String
Dim bearing_field As Object
Dim bearing_units As String
Dim line_type As String
 
Dim instance As New BearingDistanceToLine(in_table, out_featureclass, x_field, y_field, distance_field, distance_units, bearing_field, bearing_units, line_type)

public BearingDistanceToLine( 
   object in_table,
   object out_featureclass,
   object x_field,
   object y_field,
   object distance_field,
   string distance_units,
   object bearing_field,
   string bearing_units,
   string line_type
)