Sub wv_PageFinished (Url As String)
pageHeight = ( WVExtras.GetContentHeight(WV) * WVExtras.GetScale(WV) )
Log("PageHeight: " & pageHeight)
End Sub
Sub sb_ValueChanged (Value As Int, UserChanged As Boolean)
Log(Value & " " & pageHeight & " " & WVExtnder.getScrollY(WV) & " " & WVExtnder.getScale(WV) )
WVExtnder.ScrollTo(WV,0, ( Value*(pageHeight/100) *(100dip/100) ))
End Sub