Visual Basic.NET - herencia y encapsulamiento visual estudio.net

Public Class UnNumero

    Private Numero As Integer 	' Propiedad encapsulada

    Public Sub New()		' Constructor sin parametro

        MyBase.New()

        Numero = 0

    End Sub

    Public Sub New(ByVal N As Integer) 	' Constructor con un parametro

        MyBase.New()

        Numero = N

    End Sub

    Public Property LeNumero() As Integer	' Acceso público a la propiedad encapsulada.

        Get

            Return Numero

        End Get

        Set(ByVal N As Integer)

            Numero = N

        End Set

    End Property

    Public Function DarNumero() As Integer	' Un método público específico de la clase.

        Return Numero

    End Function

    Public Sub TenerNumero(ByVal N As Integer) ' Otro método público específico de la clase.

        Numero = N

    End Sub

End Class

Public Class UnaClassCliente

    Inherits UnNumero   ' herencia si es necesario

Dim MiNumero As UnNumero  ' una simple instanciación