Sub Globals
Dim flg_success as Boolean=False
End Sub
Sub Activity_Resume
If flg_success=True Then
Msgbox("Please press the Home button to make me crash","Try it")
flg_success=False
End If
End Sub
'image selected, opens a dialog
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
flg_success=True
End If
End Sub