主题：点击窗口中按钮让窗口的高度变化，但位置不变，怎么办

Dim x As Integer = Sysinfo.screenwidth/2 - e.Form.width/2
Dim y As Integer = Sysinfo.screenheight/2 - 168/2

If e.Sender.Checked Then
    e.Form.SetBounds(x, y, e.Form.width, 480)
    e.Form.Controls("add").Enabled = True
Else
    e.Form.SetBounds(x, y, e.Form.width, 168)
    e.Form.Controls("add").Enabled = False
End If

我现在主要是想让x,y还是原来窗口的位置，e.form.left和top返回值都是0，应该是坐标空间的问题，大神帮我解答下怎么获得窗口的当前位置呗，谢谢了

msgbox(e.Form.BaseForm.Left)

msgbox(e.Form.BaseForm.Top)