CallSubDelayed3(Me,"SetScrollPaneBackgroundColor",CLV,XUI.Color_Black)
#If B4j
Private Sub SetScrollPaneBackgroundColor(View As CustomListView, Color As Int)
    Dim SP As JavaObject = View.GetBase.GetView(0)
    Dim V As B4XView = SP
    V.Color = Color
    Dim V As B4XView = SP.RunMethod("lookup",Array(".viewport"))
    V.Color = Color
End Sub
#End If