コレクションクラスに対してFor Eachを使えるようにするには

質問

コレクションクラスの持つアイテムを
For Each ・・・ Next でぶん回す方法を教えてください。

昔、本に載っていたのを見たのですが、
どーーーーーしても思い出せません！

たしか、プロパティを１こ追加して、
object.[_Enum]のような行を追加していたような・・・

よろしくお願いします！

回答No.1

imogasi

Sub test05()
Dim c
For Each c In Array("a", "b", "c")
MsgBox c
Next
End Sub
こういうものでしょうか。

お礼

imogasiさん　ありがとうございます。

実現したかったのは、自作のコレクションクラスに保持しているアイテムを、外部から参照する際にFor Eachで参照
したかったのです。

ですが、あれからいろいろ調べていて、MSDNにようやく下記説明文を発見できました。

For Each … Next のサポート

' NewEnum は コレクションの列挙子の IUnknown インターフェイスを
' 返す必要があります。
Public Function NewEnum() As IUnknown
Set NewEnum = mcolEmployees.[_NewEnum]
End Function

お騒がせしました。