主题：数据库备份与还原

做一个独立窗口，如窗口1。

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then

    Forms("窗口1").Show
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder(ProjectPath)
    zip.Close()

    Forms("窗口1").Close
End If