temp3-address

Public Class Address

    Private addrNickName As String     Private addrFullName As String     Private addrEmail As String

    Public Sub New(ByVal nickName As String, ByVal fullName As String, ByVal email As String)         MyBase.New()         Me.addrNickName = nickName         Me.addrFullName = fullName         Me.addrEmail = email     End Sub

    Public Sub New()         MyBase.New()     End Sub

    Public Property NickName()         Get             Return addrNickName         End Get

        Set(ByVal value)             addrNickName = value         End Set     End Property

    Public Property FullName()         Get             Return addrFullName         End Get

        Set(ByVal value)             addrFullName = value         End Set     End Property

    Public Property Email()         Get             Return addrEmail         End Get

        Set(ByVal value)             addrEmail = value         End Set     End Property

End Class