Private Sub DecompressZIP(ByVal UpdateFile As String, ByVal DestPath As _
      String)
        Try
            zipIStream = New TarInputStream(IO.File.OpenRead(UpdateFile))
 
            Do While 1
 
                theEntry = zipIStream.GetNextEntry
                If theEntry Is Nothing Then Exit Do
 
                Dim size As Integer = 2048
                Dim data(size) As Byte
                fs = New IO.FileStream(DestPath + theEntry.Name, _
                  IO.FileMode.Create)
 
                Do
                    size = zipIStream.Read(data, 0, data.Length)
                    If size > 0 Then
                        fs.Write(data, 0, size)
                    End If
                Loop While size > 0
 
                fs.Flush()
                fs.Close()
 
            Loop
            zipIStream.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            If Not zipIStream Is Nothing Then
                zipIStream.Close()
                zipIStream = Nothing
            End If
            If Not theEntry Is Nothing Then
                theEntry = Nothing
            End If
            If Not fs Is Nothing Then
                fs.Close()
                fs = Nothing
            End If
        End Try
    End Sub