Imports System

Public class Desarrollador

    protected nombre As String

    Public Sub New(ByVal Nm As String)

        nombre = Nm

    End Sub

    Public Property getset() As String

        Get

            Return nombre

        End Get

        Set(ByVal Value As String)

                nombre = Value

        End Set

    End Property

End class

​

Public MustInherit class Producto

    protected codigo As Integer

    protected nombre As String

End class

​

Public class Software 

    Inherits Producto

    Implements Iinterface

​

    protected licencia As String

    protected versión As String

    protected dim desarrollador() = {new Desarrollador("Microsoft")}

    Public Sub New(ByVal Nm As String,ByVal Cd As integer,ByVal Lc As String,ByVal Vr As String, ByVal Ds As Desarrollador)

        codigo = Cd

        nombre = Nm

        licencia = Lc

        versión = Vr

        desarrollador(0) = Ds

    End Sub

    Public Sub New()

    End Sub

    Public Sub Mostrar() _

        Implements Iinterface.Mostrar

        Console.WriteLine("Producto: " + nombre)

        Console.WriteLine("Desarrollador: " + desarrollador(0).getset())

        Console.WriteLine("Licencia: " + licencia)

        Console.WriteLine("Versión: " + versión)

        Console.WriteLine("Código: " + String.Concat(codigo))

    End Sub

    Public Property getsetNombre() As String

        Get

            Return nombre

        End Get

        Set(ByVal Value As String)

                nombre = Value

        End Set

    End Property

    Public Property getsetCódigo() As Integer

    Get

            Return codigo

    End Get

        Set(ByVal Value As Integer)

            codigo = Value

    End Set

    End Property

        Public Property getsetLicencia() As String

        Get

            Return licencia

        End Get

        Set(ByVal Value As String)

            licencia = Value

        End Set

    End Property

    Public Property getsetVersion() As String

        Get

            Return versión

        End Get

        Set(ByVal Value As String)

            Versión = Value

        End Set

    End Property

    Public Property getsetDesarrollador() As Desarrollador()

        Get

            Return desarrollador

        End Get

        Set(ByVal Value As Desarrollador())

            desarrollador = Value

        End Set

    End Property

End class

​

Public Interface Iinterface  

    sub Mostrar()

End Interface

​

Public Class TestSoftware

    Public Sub Main()

    dim soft as new Software("Visual Stuido",0,"De Propietario","2015 Update 3",new Desarrollador("Microsoft"))

        soft.Mostrar()

    End Sub

End Class