[2005] Problems with custom classing / Default property

[MagellanTX]

This one is a tricky to explain so I will try to use a lot of examples.

Public Class Customer
    Private _Name As New CustomerName
 
    Public Property Name() As CustomerName
        Get
            Return _Name
        End Get
        Set(ByVal value As CustomerName)
            _Name = value
        End Set
    End Property
 
End Class

Public Class CustomerName
    Private _Original As String
    Private _Current As String
 
    Public Property Original() As String
        Get
            Return _Original
        End Get
        Set(ByVal value As String)
            _Original = value
        End Set
    End Property
 
    Public Property Current() As String
        Get
            Return _Current
        End Get
        Set(ByVal value As String)
            _Current = value
        End Set
    End Property
 
End Class

What I would like to do is set the property like:

Customer.Name="Brian"

without having to do:

Customer.Name.Current="Brian"

and then be able to access those extended properties so I can get the value of

Customer.Name.Original

when updating the dataset.

I think the easiest way of asking is how do I make the 'CURRENT' property the default?

Thanks!!