<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="progressBar.aspx.vb" Inherits="progressBar" %>

<asp:Content ID="Content1" ContentPlaceHolderID="MainContent" Runat="Server">

    <script>

        function OnProgress(progressBar) {
            var extraData = progressBar.getExtraData();
            if (extraData) {
                var div = document.getElementById("divStatus");
                div.innerHTML = extraData;
            }
        }

        </script>

Protected Sub ProgressBar1_RunTask(sender As Object, e As EO.Web.ProgressTaskEventArgs)
 
     e.UpdateProgress(0, "Running...")
 
    Dim i As Integer
   For i = 0 To 99
         If e.IsStopped Then
         Exit For
      End If
          System.Threading.Thread.Sleep(500)

       If i > 50 Then
         e.UpdateProgress(i, "Half done...")
      Else
         e.UpdateProgress(i)
      End If
   Next i
   e.UpdateProgress(100, "The task is done!")
End Sub 

'ProgressBar1_RunTask

    </asp:Content>