Public Class Form1
 
    ''' <summary>
    ''' Internes Zip-Output-Objekt
    ''' </summary>
    ''' <remarks></remarks>
    Private iZipOutputStream As java.util.zip.ZipOutputStream = Nothing
 
    ''' <summary>
    ''' Diese Variable speichert die Buffergröße
    ''' </summary>
    ''' <remarks></remarks>
    Private iStandardBufferGroesse As Integer = 2048
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            ExtractZip("C:\Dokumente und Einstellungen\All" & _
              "Users\CuAutomationDotNetTemp\TestText.zip", "C:\Dokumente und" & _
              "Einstellungen\All Users\CuAutomationDotNetTemp\")
        Catch ex As Exception
            MsgBox(ex.Message)
            ' Me.Co_SystemComponent1.ErrorMail(Me.Name, New StackFrame( 
            ' ).GetMethod().Name, ex, "", False, False, False, False)
        End Try
    End Sub