点击下载此附件

 Private Sub cmdResize_Click()
    Me.Section(acDetail).Visible = (Not Me.Section(acDetail).Visible)
    If Me.Section(acDetail).Visible Then
        Me.cmdResize.Caption = "收起↑"
        Me.InsideHeight = Me.Section(acDetail).Height + Me.Section(acFooter).Height
    Else
        Me.cmdResize.Caption = "展开↓"
        Me.InsideHeight = Me.Section(acFooter).Height
    End If
End Sub