寻求过往论坛上的例子（关于直线控件，其特殊效果为凿痕时，当用vba语句改变其宽度

sgrshh29

以下是引用mrl在2006-4-23 18:36:00的发言：
例子我找到了但还没有解决我的问题，请看上面付件

试试:

Private Sub Form_Resize()
Me.Painting = False
Me.Image1.Left = Me.InsideWidth - Me.Image1.Width
Me.Box0.Width = Me.InsideWidth
Me.Section(acDetail).Height = Me.Section(acDetail).Height
Me.Painting = True
End Sub