Task Three

Public MustInherit Class Vehicle

Protected _strName As String
Protected _strModel As String
Protected _strGeneralNotes As String
Protected _VechicleRegistration As Registration(RegNumber,RegExpiryDate)


Public Sub New(Make As String, Model As String, RegNumber As Integer,RegExpiryDate As Integer)

_strMake = Make
_strModel=Model
_VechicleRegistration = New Registration

Public Sub New(Make As String, Model As String, RegNumber As Integer,RegExpiryDate As Integer,GeneralNotes As String)

_strMake = Make
_strModel=Model
_strGeneralNotes=GeneralNotes
_VechicleRegistration = New Registration

Public Function getMake()As String
Return_strMake
End Function

Public Sub setMake(Make As String)
_strMake=Make

End Sub

Public Function getMocel()As String
Return_strModel

End Function

Public Sub setModel(Model As String)
_strModel=Model

End Sub

Public Function getGeneralNotes()As String
Return_strGeneralNotes 
End Function

Public Sub setGeneralNotes(GeneralNotes As String)
_strGeneralNotes=GeneralNotes

End Sub

Public Function getVechicleRegistration()As Registration
Return_strVechicleRegistration 
End Function

Public Sub setVechicleRegistration(ARegistration As Registration)
_strVechicleRegistration=ARegistration

End Sub

Public Sub AddToGeneralNotes(Notes As String)
_strGeneralNotes &=Notes
End Sub