Android Code Snippet Get focused view

Simple routine to get the focused (normally EditText) view:

Sub GetFocused() as View
    Dim jo As JavaObject
    Dim vw As View
    jo.InitializeContext
    Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
    vw=window.RunMethod("getCurrentFocus",Null)
    Return vw
End Sub

HTH