'Code from Cadline Community - https://www.cadlinecommunity.co.uk/hc/en-us/articles/212802485 
'Get the active assembly document object
Dim assyDoc As Inventor.AssemblyDocument = DirectCast(ThisApplication.ActiveDocument, Inventor.AssemblyDocument)
 
'Get a reference to the +/- constraint
Dim driveCon As Inventor.AssemblyConstraint = assyDoc.ComponentDefinition.Constraints.Item("Constraint Name")
 
'Play constraint forward
MessageBox.Show("About to play forward", "Drive Constraint")
driveCon.DriveSettings.PlayForward()
assyDoc.Update()
 
'Play constraint in reverse
MessageBox.Show("About to play in reverse", "Drive Constraint")
driveCon.DriveSettings.PlayReverse()
assyDoc.Update()