Wunnel.IO.Compression.Zip.CompressFiles(sourceNames() As String, archiveName As String)

Dim zipFiles(1) As String = Application.StartupPath & "\folder\eg.dll"
        Dim zipFiles(2) As String = Application.StartupPath & "\folder\eg.exe"

CompressFiles(zipFiles(), "myArchive.zip")

Public Shared Sub Zip(ByVal type1 As String, ByVal type2 As String, ByVal FileName As String, ByVal Compression As Integer, ByVal password As String, ByVal directory As String)
        Dim oFiles() As System.IO.FileInfo
        Dim i As Int32
        Dim strZippedFile As String = FileName
        Dim nBlockSize As Integer = 10
        Dim strmStreamToZip As System.IO.FileStream
        Dim strmZipFile As System.IO.FileStream
        Dim strmZipStream As Zip.ZipOutputStream
        Dim myZipEntry As Zip.ZipEntry
        Dim abyBuffer(nBlockSize) As Byte
        Dim nSize As System.Int32
        Dim oDir As New System.IO.DirectoryInfo(directory)
        oFiles = oDir.GetFiles
        strmZipFile = System.IO.File.Create(My.Application.Info.DirectoryPath & "\" & strZippedFile)
        strmZipStream = New Zip.ZipOutputStream(strmZipFile)
        For i = 0 To oFiles.Length - 1
            Dim strFileToZip As String = (oFiles(i).FullName.ToString)
            strmStreamToZip = New System.IO.FileStream(strFileToZip, System.IO.FileMode.Open, System.IO.FileAccess.Read)
            If oFiles(i).Extension = type1 Or oFiles(i).Extension = type2 Then
                strmZipStream.Password = password
                strmZipStream.SetLevel(Compression)
                myZipEntry = New Zip.ZipEntry(System.IO.Path.GetFileName(strFileToZip))
                strmZipStream.PutNextEntry(myZipEntry)
                nSize = strmStreamToZip.Read(abyBuffer, 0, abyBuffer.Length)
                strmZipStream.Write(abyBuffer, 0, nSize)
                Try
                    While (nSize < strmStreamToZip.Length)
                        Dim nSizeRead As Integer
                        My.Application.DoEvents()
                        nSizeRead = strmStreamToZip.Read(abyBuffer, 0, abyBuffer.Length)
                        strmZipStream.Write(abyBuffer, 0, nSizeRead)
                        nSize = nSize + nSizeRead
                    End While
                Catch Ex As System.Exception
                    Throw Ex
                End Try
                strmStreamToZip.Close()
                oFiles(i).Delete()
            End If
        Next
        strmZipStream.Finish()
        strmZipStream.Close()
        strmZipStream.Dispose()