Public Class Bil
    Public Registreringsnr As String
    Public Merke As String
    Public Aarsmodell As String
    Public Hastighet As Integer
 
    Public Function gass(ByVal fart As Integer) As Integer
        Dim nyfart As Integer
        nyfart = fart + 10
        Return nyfart
    End Function
 
    Public Function brems(ByVal fart As Integer) As Integer
        Dim nyfart As Integer
        nyfart = fart - 10
        Return nyfart
    End Function
End Class