Créer une list d'élement d'objet

Bonjour,
J'ai créer un tableau de points :

Code:

---

Dim Liste As Point() = ({New Point(2, 3), New Point(0, 1)})

---

Je cherche a récupérer une tableau (ou une liste) des abscisses des points sans utiliser de boucle "For Each"

Code:

---

1 2 3 4 5

Dim Abscisses As New List(Of Point)   For Each Point In Abscisses Abscisses.Add(Point.X) Next

---

Je voudrais faire cela en une seule ligne. Un peu du même style que le trie d'une liste avec "OrderBy"

Code:

---

Dim ListeTriee = Liste.OrderBy(Function(x) (x.X))

---

Comment faire ? Existe-t-il une méthode pour le faire ?
Merci beaucoup