Imports ICSharpCode.SharpZipLib.Zip
 
Public Class form1
 
    Private Sub form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
 
        If Form2.CheckBox1.CheckState = CheckState.Checked Then
 
            Dim ZipDatei As String = "test.zip"
 
 
            Dim IzipDatei As ZipFile = New ZipFile(ZipDatei)
 
            For Each ZipInhalt As ZipEntry In IzipDatei
 
 
                If InStr(ZipInhalt.Name, "test") > 0 Then
 
                    Dim Entpacker As New ICSharpCode.SharpZipLib.Zip.FastZip
                    Entpacker.ExtractZip(ZipDatei, "C:\test", "test")
 
                    Exit For
 
                End If
            Next
 
        Else
 
        End If
 
End Class