Public Enum VehicleGroups
        Gruppe1 = 1
        Gruppe2 = 2
        Gruppe3 = 3
        Gruppe4 = 4
        Gruppe5 = 5
        Gruppe6 = 6
        Gruppe7 = 7
    End Enum
 
    Private Sub VehicleClass(ByVal Gruppe As VehicleGroups)
 
    End Sub