Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim webstream As New Net.WebClient()
        Dim Newentry As Zip.ZipEntry
        Using zipstream As New Zip.ZipInputStream(webstream.OpenRead(New Uri( _
          "http://www.kurnik.org/intl/de/game.phtml/hatice34.zip?gid=ml&uid=ha" & _
          "ice34")))
            Do
                Newentry = zipstream.GetNextEntry
                Dim size As Integer = 2048
                Dim data As Byte() = New Byte(2047) {}
                While size > 0
                    size = zipstream.Read(data, 0, data.Length)
                    TextBox1.AppendText(New System.Text.ASCIIEncoding( _
                      ).GetString(data, 0, size))
                End While
                Newentry = zipstream.GetNextEntry
            Loop While Newentry IsNot Nothing
        End Using
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus