Hi Curtis,
This property was really hidden deep in there!
I found that you can use FlangeDefinition.SetDistanceHeightExtent. Simple example from your code:
Dim oSheetMetalDoc As PartDocument
oDoc = ThisDoc.Document
' Set a reference to the component definition.
Dim oCompDef As SheetMetalComponentDefinition
oCompDef = oDoc.ComponentDefinition
' Set a reference to the sheet metal features collection.
Dim oSheetMetalFeatures As SheetMetalFeatures
oSheetMetalFeatures = oCompDef.Features
Dim oFlangeFeature As FlangeFeature = Feature.InventorFeature("Flange1")
Dim oFlangeDefinition As FlangeDefinition = oFlangeFeature.Definition
If FlangeType = "TypeX" Then
oFlangeDefinition.SetDistanceHeightExtent(oFlangeDefinition.HeightExtent.Distance, PartFeatureExtentDirectionEnum.kPositiveExtentDirection, oFlangeDefinition.HeightExtent.HeightDatumType)
Else
oFlangeDefinition.SetDistanceHeightExtent(oFlangeDefinition.HeightExtent.Distance, PartFeatureExtentDirectionEnum.kNegativeExtentDirection, oFlangeDefinition.HeightExtent.HeightDatumType)
End If
I've edited this reply two times now to clean it up a bit...