(SourceFolder,DistZipeName)
Private sub Command1_Click()
ZipFolder "C:MyFolder", "C:MyZipdeFolder.zip")
End Sub