Hi Sue, it would be great to see a sample for redemption. This is as
far as I've gotten so far:

Dim objStore As Redemption.RDOStore
Dim objSession As Redemption.RDOSession

Set objSession = CreateObject("Redemption.RDOSession")
objSession.Logon
Set objStore = objSession.Stores.DefaultStore

and then I'd like to check the Common Views folder, here it's #1, but
I'd have to loop through & check the name, anyhow when I check the
common folder hidden objects like this:

debug.print objStore.RootFolder.Folders(1).hiddenItems(i).Mess ageClass

none of the items are the forms designer message type.

Thanks,
Carol

*** Sent via Developersdex http://www.developersdex.com ***