Setting Relationship type in code (XP)

I have created a procedure that makes schema mofications in the backend using tables in the front end to define the schema. It works pretty well but I have just one little issue left I can't find the constant for reationship types. so far Ive got -
Select Case !Relationship_Type
Case "DontEnforce"
intRelationshipType = 2
Case "CascadeUpdate"
intRelationshipType = 256
Case "CascadeDelete"
intRelationshipType = 4096
Case "CascadeBoth"
' intRelationshipType = ?
End Select
So I still need the value for Cascade both delete and Update. Where could I find this for myself preferably the constants in case the values change in future versions