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