Private Sub WVCar_OverrideUrl (sentUrl As String) As ResumableSub' Boolean
#if b4i
Dim wv1 As WKWebView
wv1 = Sender
#else if b4a
Dim wv1 As WebView
wv1 = Sender
#End If
Dim find1 As Int
If sentUrl.StartsWith("http://remote") Then
#if b4j
#else
wv1.StopLoading
#End If
find1 = sentUrl.LastIndexOf("/")
Dim remotesID As String = sentUrl.SubString(find1 + 1)
If sentUrl.StartsWith("http://remote_a") Then
addPosFeedback("posFeedback",remotesID,"loadRemote")
Else If sentUrl.StartsWith("http://remote_d") Then
addNegFeedback("negFeedback",remotesID,"loadRemote")
else If sentUrl.StartsWith("http://remote_ed") Then
' EditRemoteFeedbackData(remotesID)
End If
End If
Return True
end sub