点击下载附件
'写在窗体调整事件过程中
Private Sub Form_Resize()
On Error Resume Next
Me.子窗体1.Width = Me.InsideWidth
Me.子窗体1.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
End Sub