<?xml version="1.0" standalone="yes"?>
<Alle_Spielkarten>
  <Autos>
    <spielnr>1</spielnr>
    <autonr>1</autonr>
    <standort>{X=500,Y=600}</standort>
    <farbe>Aqua</farbe>
    <laenge>300</laenge>
    <breite>100</breite>
    <moverechts>False</moverechts>
    <movehoch>True</movehoch>
  </Autos>

Dim autos As IEnumerable(Of Class_auto) = From Auto In datas...<Autos> Where _
  Auto.<spielnr>.Value = Me.TrackBar1.Value Select New Class_auto With {
                     .standort = pc.ConvertFromString(Auto.<standort>.Value)}