ListProperties Method Example

The following example retrieves the number and the corresponding list of properties and their datatypes for the Oval object Oval1.

Dim strMsg As String

Dim pvProperties As Variant

Dim pvDataTypes As Variant

Dim iNumProps As Integer

Oval1.ListProperties pvProperties, pvDataTypes, iNumProps

strMsg = "This object has the following Properties: "

For Each i In pvProperties

   strMsg = strMsg + i + ","

  Next

MsgBox strMsg, vbOKOnly, "Message"