'Activity module
Sub Process_Globals
Dim qc As Boolean
Dim score As Int : score = 0
End Sub
Public Sub btntrademecheck_click
If txtinput.text.Contains ("trade me") Then
qc = True
score = 1
Msgbox("Correct", "This is the title")
StartActivity("NewZealand")
Else
qc = False
Msgbox("Wrong", "This is the title")
End If
End Sub