VBA Doorway to Database Properties

How do I access the data in the Database Properties window from VBA?

I have searched the help files and numerous properties via the Immediate Window, but cannot find an opening to the underlying Database Properties in the object model. I can access the Shape***, but that has no info on the relationship itself. I can get the field list via .Text in the individual Entities, but not the table name. Where is all that stuff found? (I suspect it might be through the UI, but I've had no luck there, either.)

My diagram is a reverse-engineered Access 2003 database, with over 280 relationships. The Page is huge and complex. When I refresh the model, I lose all the text on the relationship lines. I want to be save all that data, and re-create it, as well as new ones, via VBA. Some specific syntax examples would be very, very helpful.

I posted this first in the Database.Modeling forum, but I thought I'd give this one a try as well.

.