Private P1() As PointF
    Private P2() As PointF
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ReDim P1(1)
        P1(0).X = 10
        P1(0).Y = 11
        P1(1).X = 20
        P1(1).Y = 21
 
        P2 = P1 'Hier liegt der Fehler!
 
        P2(0).X = 30
        P2(0).Y = 31
        P2(1).X = 40
        P2(1).Y = 41
 
        MsgBox(P1(0).X & " " & P1(0).Y) '30 31 kommt raus.
    End Sub