Public Declare Function ZipAddFile Lib "sevZip30.dll" Alias "ZipAddFile" (
_ ByVal sZipFile As String, 
_ ByVal sSourceFile As String, 
_ ByVal nOverwrite As Integer, 
_ ByVal hStatus As Integer) As Integer
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim sZipFile As String = "c:\test.zip"
        Dim sSourceFile As String = "c:\test.txt"
        Dim nOverwrite As Integer = 1
        Dim hStatus As Integer = 0
        Dim nResult As Integer
 
        nResult = ZipAddFile(sZipFile, sSourceFile, nOverwrite, hStatus)
 
        MsgBox(nResult)