Public Shared Sub DownloadProgressCallback(ByVal sender As Object, ByVal e As _
  DownloadProgressChangedEventArgs)
        frmupdate.Label3.Text = CStr(e.UserState) & e.BytesReceived & _
        e.TotalBytesToReceive & e.ProgressPercentage
    End Sub