Modules & VBA :: How To Get ForeignTable Field And Relationship Types Using It

For reasons I need not get into as it generally proves to be a distraction, I need to document the relationships in databases.

I've been playing around with .Relations with some success.

I can easily get the relationship's name, Table Name, Table Field, and ForeignTable.

Code:
For i = 0 To objDestDB.Relations.Count - 1
With rsMigrateRels
.AddNew
!RelNumber = i
!RelAttributes = objDestDB.Relations(i).Attributes
!RelFields = objDestDB.Relations(i).Fields.Count
!RelFieldsName = objDestDB.Relations(i).Fields(0).Name
!RelForeignTable = objDestDB.Relations(i).ForeignTable
!RelName = objDestDB.Relations(i).Name
!RelPartialReplica = objDestDB.Relations(i).PartialReplica
!RelProperties = objDestDB.Relations(i).Properties.Count
!RelTable = objDestDB.Relations(i).Table
.Update
End With
Next i

However, despite lots of digging into the other properties and attributes associated here, I cannot yet figure out how or where to get the:

ForeignTable field
The type of relationship (1:1,1:many,many:many)