'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim T As Object
Dim R As Reflector
Dim IsInitialized As Boolean
End Sub
Sub Show(sText As String,sDur As Boolean)
Dim C As Object
Dim Duration As Int
C = R.GetContext
Duration = 0
If sDur = True Then Duration = 1
T = R.RunStaticMethod("android.widget.Toast","makeText",Array As Object(C,sText,Duration),Array As String("android.content.Context","java.lang.CharSequence","java.lang.int"))
R.Target=T
R.RunMethod("show")
IsInitialized = True
End Sub
Sub Cancel
R.Target=T
R.RunMethod("cancel")
IsInitialized = False
End Sub