Sub Main()

	Dim ZO, zSrc, zDest
	
	zSrc = "D:\Backup\MyData.zip"
	zDest = "C:\DATA"
	
	Set ZO = hs.UnZip(zSrc, zDest, False, True, "")
	
	If Not IsObject(ZO) Then
		hs.WriteLog "Nothing","----------- It is not an object."
		Exit Sub
	End If
	
	Do While ZO.Finished = False
		hs.WriteLog "Zip_UnZip","Waiting on thread " & CStr(ZO.ThreadID)
		hs.WaitSecs 2
	Loop
	
	If Len(Trim(ZO.ZipError)) = 0 Then
	    hs.WriteLog "Zip_UnZip","Done with the UnZip function - there were no errors or warnings."
	Else
	    hs.WriteLog "Zip_UnZip","Done with the UnZip function - there was this error or warning: " & ZO.ZipError
	End If
	
End Sub