DefaultMemberAttribute Class

Imports System.Reflection
Imports System.IO

<DefaultMemberAttribute("Age")> Public Class Example

   Public Sub Name(ByVal s As String)
   End Sub 'Name

   Public ReadOnly Property Age() As Integer
      Get
         Return 20
      End Get
   End Property

   Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      Try
         Dim myType As Type = GetType([Example])
         Dim memberInfoArray As MemberInfo() = myType.GetDefaultMembers()
         If memberInfoArray.Length > 0 Then
            Dim memberInfoObj As MemberInfo
            For Each memberInfoObj In memberInfoArray
               outputBlock.Text &= "The default member name is: " + memberInfoObj.ToString() & vbCrLf
            Next memberInfoObj
         Else
            outputBlock.Text &= "No default members are available." & vbCrLf
         End If
      Catch e As InvalidOperationException
         outputBlock.Text &= "InvalidOperationException: " + e.Message & vbCrLf
      Catch e As IOException
         outputBlock.Text &= "IOException: " + e.Message & vbCrLf
      Catch e As Exception
         outputBlock.Text &= "Exception: " + e.Message & vbCrLf
      End Try
   End Sub 'Main
End Class '[MyClass]

using System;
using System.Reflection;
using System.IO;

[DefaultMemberAttribute("Age")]
public class Example
{
   public void Name(String s) { }
   public int Age
   {
      get
      {
         return 20;
      }
   }
   public static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {
      try
      {
         Type myType = typeof(Example);
         MemberInfo[] memberInfoArray = myType.GetDefaultMembers();
         if (memberInfoArray.Length > 0)
         {
            foreach (MemberInfo memberInfoObj in memberInfoArray)
            {
               outputBlock.Text += "The default member name is: " + memberInfoObj.ToString() + "\n";
            }
         }
         else
         {
            outputBlock.Text += "No default members are available." + "\n";
         }
      }
      catch (InvalidOperationException e)
      {
         outputBlock.Text += "InvalidOperationException: " + e.Message + "\n";
      }
      catch (IOException e)
      {
         outputBlock.Text += "IOException: " + e.Message + "\n";
      }
      catch (Exception e)
      {
         outputBlock.Text += "Exception: " + e.Message + "\n";
      }
   }
}