[VB.NET] For Each su Array di Point non "funziona"

[renygade]

Ciao ragazzi
Mi scuso per il titolo ma non so trovare parole migliori per spiegare il "fenomeno".
Sto trafficando con array di Point, ecco un codice di esempio:

Dim s(3) As Point
s = {New Point(1, 0), New Point(2, 0), New Point(3, 0), New Point(4, 0)}
   For Each p As Point In s
        p.X = 10
        Debug.Print("ciclo" & p.X.ToString)
    Next
Debug.Print(s(0).X.ToString)

Se faccio girare questo codice ottengo in output questo
ciclo10
ciclo10
ciclo10
ciclo10
1 <------
Com'è possibile che la X del point 0 valga ancora 1, nonostante abbia specificato che deve valere 10?