Module Module1

    Sub Main()
        Dim oxima1 As New ohima
        oxima1.mixanh = 2.0
        oxima1.pinakides = "AAA 1111"
        oxima1.xroma = "Κόκκινο"
        Dim ix As New idiotiko
        ix.pinakides = "AAA 1112"
        ix.mixanh = 1.2
        ix.xroma = "μπλέ"
        ix.theseis = 4


        Console.WriteLine("το όχημα με πινακίδες {0} έχει {1:N2} λίτρα μηχανή και έχει χρώμα {2}", oxima1.pinakides, oxima1.mixanh, oxima1.xroma)

        Console.WriteLine("το όχημα με πινακίδες {0} έχει φόρο {1}", oxima1.pinakides, oxima1.tax())

        Console.WriteLine("το όχημα με πινακίδες {0} έχει {1:N2} λίτρα μηχανή και έχει χρώμα {2}", ix.pinakides, ix.mixanh, ix.xroma)
        Console.WriteLine("το όχημα με πινακίδες {0} έχει φόρο {1}", ix.pinakides, ix.tax())
        Console.ReadKey()

    End Sub

End Module


Public Class ohima
    Private _mixanh As Double
    Private _xroma As String
    Private _pinakides As String

    Public Property mixanh() As Double
        Get
            Return _mixanh
        End Get
        Set(ByVal value As Double)
            _mixanh = value
        End Set
    End Property
    Public Property xroma() As String
        Get
            Return _xroma
        End Get
        Set(ByVal value As String)
            _xroma = value

        End Set
    End Property
    Public Property pinakides() As String
        Get
            Return _pinakides
        End Get
        Set(ByVal value As String)
            _pinakides = value
        End Set
    End Property
    Public Function tax() As Double
        Return _mixanh * 200
    End Function

End Class
Public Class idiotiko : Inherits ohima
    Private _theseis As Short

    Public Property theseis() As Short
        Get
            Return _theseis
        End Get
        Set(ByVal value As Short)
            _theseis = value

        End Set
    End Property
    Overloads Function tax() As Double
        Return mixanh() * 150
    End Function

End Class