矩形位置更新不会更新值

Question

我写了一个Rectangle扩展名：

<System.Runtime.CompilerServices.Extension()> _
Public Sub MoveMiddleHorizontal(rectangle As Rectangle, uMain As Rectangle)
    Dim i As Integer = (uMain.Width / 2) - (rectangle.Width / 2)
    rectangle.Location = New Point(i, rectangle.Top)
End Sub

在sub之前，rectangle.X为0。

在子矩形中，矩形.X = 128，但是一旦我退出子，矩形.X再次为0。

有人知道为什么会出现这种错误吗？