Dim w,h As Integer
w = e.Form.Controls("panel1").basecontrol.Width
h = e.Form.Controls("panel1").basecontrol.Height
w = w * 2 '宽度增加1倍
e.Form.Controls("panel1").basecontrol.width = w
---------------------------
Dim w,h As Integer
w = e.Form.Controls("panel1").basecontrol.Width
h = e.Form.Controls("panel1").basecontrol.Height
w = w / 2 '宽度缩小1倍
If w < 600 Then '控制最小宽度
w = 600
End If
e.Form.Controls("panel1").basecontrol.width = w