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
'this property allows you to enumerate
'this collection with the For...Each syntax
Set NewEnum = col.[_NewEnum]
End Property