Public Shared Function Main() As Integer
Dim myNewCollection As New MyCollection()
Dim attributes As AttributeCollection = TypeDescriptor.GetAttributes(myNewCollection)
Dim myAttribute As DefaultEventAttribute = _
CType(attributes(GetType(DefaultEventAttribute)), DefaultEventAttribute)
Console.WriteLine(("The default event is: " & myAttribute.Name))
Return 0
End Function 'Main