I need to extract the properties available on any given control at run-time. How?????

This sure as hell doesn't work!

Dim ctr As Control
Dim prp As Property
Set ctr = Me.cmdAppraise


For Each prp In ctr.Properties
Debug.print prp.Name
Next

Someone, a little help, anyone, some help please :-(