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