The following procedure uses the Properties property to print all the properties associated with the controls on a form to the Debug window. To run this code, place a command button named cmdListProperties on a form and paste the following code into the form's Declarations section. Click the command button to print the list of properties in the Debug window.
Sub cmdListProperties_Click()
ListControlProps Me
End Sub
Sub ListControlProps(frm As Form)
Dim ctl As Control, prp As Property
On Error GoTo props_err
For Each ctl In frm.Controls
Debug.Print ctl.Properties("Name")
For Each prp In ctl.Properties
Debug.Print vbTab & prp.Name & " = " & prp.Value
Next prp
Next ctl
props_bye:
Exit Sub
props_err:
If Err = 2187 Then
Debug.Print vbTab & prp.Name & " = Only available " _
& "at design time."
Resume Next
Else
Debug.Print vbTab & prp.Name & " = Error Occurred: " & Err
Resume Next
End If
End Sub