Imports System

Public Module Module1

    public Class Vehicle

    End Class

    public Class Car 

    Inherits Vehicle

    End Class

    public Class Motorocycle  

    Inherits Vehicle

    End Class

    Public Sub Main()

        Dim númeroA as decimal

​

        Dim númeroB as decimal

​

    End Sub

End Module

​

​