Public Sub TransformToSynchronousSheetmetal( _
   ByVal pRefFace As Object, _
   Optional ByVal nEdgeNum As Long = 0, _
   Optional ByRef EdgesArray() As Object, _
   Optional ByVal BRType As Variant, _
   Optional ByVal dBRWidth As Double = 0, _
   Optional ByVal dBRLength As Double = 0, _
   Optional ByVal dBendRadius As Double = 0, _
   Optional ByVal dNeutralFactor As Double = 0 _
)