Sub Process_Globals
End Sub
Sub Globals
   Dim WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
   WebView1.Initialize("")
   Activity.AddView(WebView1, 0, 0, 100%x, 100%y)
   
   Dim WebViewExtras1 As WebViewExtras
   WebViewExtras1.addWebChromeClient(WebView1, "WebViewExtras1")
   
   WebView1.LoadUrl("http://www.b4x.com/forum/basic4android-updates-questions/30863-how-know-loading-progress-webview.html")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub WebViewExtras1_ProgressChanged(NewProgress As Int)
   '   NewProgress is Current page loading progress, represented by an integer between 0 and 100. 
   Log("WebView1 loading progress: "&NewProgress&"%")
End Sub