ICursors​._NewEnum [Property][Get]

Retrieves an enumerator for the cursors collection.

Defined As

• [VBA] Object _NewEnum()

• [C++] HRESULT get__NewEnum(LPUNKNOWN *pVal)

Execution Result

If the property get succeeds, the return value will be Success. If the return variable is bad, the return value will be InvalidArgument. If the collection is deleted, the return value will be GeneralFailure.

Remarks

Provided for the implementation of For Each...Next loops in VBA (See Calling Syntax, below). This property cannot be used in Cicode.

Calling Syntax

This example assumes you have a valid reference to the cursors collection and that there are cursors in the collection.

[VBA]

Sub Example(cursors As Object)
Dim cursor As Object
Dim count As Integer = 0
For Each cursor In cursors
Set count = count + 1
Next
End Sub