VB 中实现 For Each

Public Property Get NewEnum() As IUnknown
    'this property allows you to enumerate
    'this collection with the For...Each syntax
    Set NewEnum = col.[_NewEnum]
End Property

转载于:https://www.cnblogs.com/todd/archive/2008/07/04/1235296.html