Enumerating Controls Properties

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 :-(

Code:

---

Dim ctl As Control
For each ctl In controls
    if typeof ctl is textbox then
        ctl.text = "Testing"
    end if
Next ctl

---

or

Code:

---

Dim ctl as Control
for each ctl in controls
    debug.print ctl.Name
Next ctl

---

Thanks but I need something a little different.

The code needs to list all properties for a given control, name and value.

Much like the properties pane in the VB development screen.