单击按钮显示或隐藏子窗体：

Private Sub 隐藏窗体_Click()

Me.子窗体.Visible = False

End Sub

Private Sub 显示窗体_Click()

Me.子窗体.Visible = True

End Sub