Sub Globals
Dim ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
ListView1.Initialize("")
Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
Dim r As Reflector
If r.GetStaticField("android.os.Build$VERSION", "SDK_INT") >= 10 Then
r.Target = ListView1
r.RunMethod4("setOverscrollFooter", Array As Object(Null), _
Array As String("android.graphics.drawable.Drawable"))
End If
End Sub