主题：panel放大于缩小

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

加入一句

e.form.panel.AutoScroll = True