Dim r As Reflector
    r.Target = r.RunStaticMethod("android.accounts.AccountManager", "get", _
      Array As Object(r.GetContext), Array As String("android.content.Context"))
    Dim accounts() As Object
    accounts = r.RunMethod2("getAccountsByType","com.google", "java.lang.String")
    For i = 0 To accounts.Length - 1
        r.Target = accounts(i)
        Dim accountName As String
        accountName = r.GetField("name")
        Log(accountName)
    Next