主题：panel放大于缩小

求正确代码

想通点击按钮，能实现panel横向扩展，发现第一次click时有效，后面就没变化了

static w,h As Integer
w = e.Form.Controls("panel1").Width
h = e.Form.Controls("panel1").Height
w = w * 2 '宽度增加1倍
e.Form.Controls("panel1").ExtendSize = New Size(w,h)

同样，希望有一个缩小按钮，也是首次click有效

static w,h As Integer
w = e.Form.Controls("panel1").Width
h = e.Form.Controls("panel1").Height
w = w / 2 '宽度缩小1倍
If w < 600 Then   '控制最小宽度
    w = 600
End If
e.Form.Controls("panel1").ExtendSize = New Size(w,h)