Sub getViewType()As String
Dim r As Reflector
Dim strTemp As String
Dim Const strAndroidStuff As String = "android.widget."
Dim intEnd As Int
r.Target=innerView
strTemp = r.RunMethod("toString")
intEnd=strTemp.IndexOf("(")
strTemp = strTemp.SubString2(strAndroidStuff.Length+1,intEnd)
Return strTemp
End Sub