Android Question how to get realListView ,ba

    SetScrollbarAlwaysVisible2 (ListView1)
    
    'SetListViewScroll (ListView1)
End Sub


Private Sub GetBA  As JavaObject
    Dim jo As JavaObject
    Dim cls As String = Me
    If Not(cls.StartsWith("class")) Then
        cls = GetType(Me)
        cls = cls.SubString2(0,cls.LastIndexOf(".")+1) & "main"
    Else
        cls = Me
        cls = cls.SubString("class ".Length)
    End If
    jo.InitializeStatic(cls)
    Return jo.GetFieldJO("processBA")
    
End Sub


 
' =============================================
Sub SetScrollbarAlwaysVisible2(lv As ListView)
    Dim innerJo As JavaObject = lv
 
    Dim realListView As JavaObject = innerJo.GetField("myListView")
    
 
    realListView.RunMethod("setFadeScrollbars", Array (False))
    realListView.RunMethod("setScrollBarDefaultDelayBeforeFade", Array(9999999))
    realListView.RunMethod("setScrollBarFadeDuration", Array (0))
    
End Sub