Sub VR_Result (Success As Boolean, Texts As List)
Dim s As String
s=""
If Success = True Then
For i = 0 To Texts.Size -1
Log(Texts.Get(i))
s = s & Texts.Get(i) & CRLF
Next
ToastMessageShow(s,True)
Else
ToastMessageShow("ERROR",False)
End If
Dim in As Intent
in.Initialize(in.ACTION_MAIN, "")
in.AddCategory("android.intent.category.HOME")
in.Flags = 0x10000000
StartActivity(in)
End Sub