B4J Question Scrolling in BBCodeView

'Transfer the vertical scroll position from BBCodeView1
Sub BBCodeView1_VScrollView(V As Double)
    If BBCodeView2.sv.ScrollViewOffsetY <> V Then
        BBCodeView2.sv.ScrollViewOffsetY = V
    End If
End Sub

'Transfer the vertical scroll position from BBCodeView2
Sub BBCodeView2_VScrollView(V As Double)
    If BBCodeView1.sv.ScrollViewOffsetY <> V Then
        BBCodeView1.sv.ScrollViewOffsetY = V
    End If
End Sub

#if B4J
Private Sub sv_VScrollChanged (Position As Double)
    If LazyLoading Then DrawVisibleRegion
    If xui.SubExists(mCallBack, mEventName & "_VScrollView", 1) Then
        CallSubDelayed2(mCallBack, mEventName & "_VScrollView", sv.ScrollViewOffsetY) 'Transfer the vertical scroll position
    End If
End Sub