{
  "WorkItem": {
    "AffectedComponent": {
      "Name": "",
      "DisplayName": ""
    },
    "ClosedComment": "",
    "ClosedDate": null,
    "CommentCount": 0,
    "Custom": null,
    "Description": "Hey, I'm using VB and I am using Ionic.Zip.dll v1.9.1.8, to use a Progress Bar. But it is giving me the following errors:\n-----------------------------------------------------------------------------------------------------------\n \nError\t1\t'BytesWritten' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'\nError\t2\t'TotalBytesToWrite' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'\nError\t3\t'BytesWritten' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'\nError\t4\t'TotalBytesToWrite' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'\nError\t5\t'NameOfLatestEntry' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'\n \nThis is the code: (Neater in the Attached File)\n------------------------\n \nPrivate Shared justHadByteUpdate As Boolean = False\n \n    Private Shared Sub MyExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)\n        If (e.EventType = ZipProgressEventType.Extracting_EntryBytesWritten) Then\n            If ExtractTest.justHadByteUpdate Then\n                Console.SetCursorPosition(0, Console.CursorTop)\n            End If\n            Console.Write(\"   {0}/{1} ({2:N0}%)\", e.BytesWritten, e.TotalBytesToWrite, (CDbl(e.BytesWritten) / (0.01 * e.TotalBytesToWrite)))\n            ExtractTest.justHadByteUpdate = True\n        ElseIf (e.EventType = ZipProgressEventType.Extracting_BeforeExtractEntry) Then\n            If ExtractTest.justHadByteUpdate Then\n                Console.WriteLine()\n            End If\n            Console.WriteLine(\"Extracting: {0}\", e.NameOfLatestEntry)\n            ExtractTest.justHadByteUpdate = False\n        End If\n    End Sub\n    Private Sub MyExtract()\n        Dim Overwrite As ExtractExistingFileAction = ExtractExistingFileAction.OverwriteSilently\n        Dim ZipToUnpack As String = \"C:\\RandomDirectory\\ZipFile.zip\"\n        Dim UnpackDirectory As String = \"C:\\RandomDirectory\\\"\n        Label3.Text = String.Format(\"Extracting file {0} to {1}\", ZipToUnpack, UnpackDirectory)\n        Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)\n            AddHandler zip1.ExtractProgress, AddressOf MyExtractProgress\n            Dim e As ZipEntry\n            ' here, we extract every entry, but we could extract conditionally,\n            ' based on entry name, size, date, checkbox status, etc.   \n            For Each e In zip1\n                e.Extract(UnpackDirectory, Overwrite)\n            Next\n        End Using\n    End Sub",
    "LastUpdatedDate": "2013-02-21T18:42:58.103-08:00",
    "PlannedForRelease": "",
    "ReleaseVisibleToPublic": false,
    "Priority": {
      "Name": "Low",
      "Severity": 50,
      "Id": 1
    },
    "ProjectName": "DotNetZip",
    "ReportedDate": "2012-01-03T14:25:16.12-08:00",
    "Status": {
      "Name": "Proposed",
      "Id": 1
    },
    "ReasonClosed": {
      "Name": "Unassigned"
    },
    "Summary": "VB Progress Bar Error",
    "Type": {
      "Name": "Issue",
      "Id": 3
    },
    "VoteCount": 1,
    "Id": 14619
  },
  "FileAttachments": [
    {
      "FileId": 4207,
      "FileName": "Code.txt",
      "DownloadUrl": ".\\4207"
    }
  ],
  "Comments": []
}