Public Class Auto
        Public Farbe As String = Nothing
        Public Gewicht As Double = Nothing
        Public Hersteller As String = Nothing
        Public KW As Integer = Nothing
 
        Public Function AnyThing(ByVal prop As String) As Object
            prop = prop.Trim.ToUpper
            If prop = "FARBE" Then Return Farbe
            If prop = "GEWICHT" Then Return Gewicht
            If prop = "HERSTELLER" Then Return Hersteller
            If prop = "KW" Then Return KW
            Return Nothing
        End Function