'Activity module
Sub Process_Globals
Dim MP As MediaPlayer
Dim result As Int
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout2") 'Load the layout file.
End Sub
Sub Button1_Click
MP.Initialize2("MP")
MP.Load(File.DirAssets, "lightsaber.mp3")
MP.Play
result = Msgbox2("Did the baby react?", "Attention", "Yes", "Cancel", "No", LoadBitmap (File.DirAssets, "important.png"))
If result = DialogResponse.Positive Then StartActivity(Postive)
If result = DialogResponse.Negative Then StartActivity(Postive)
End Sub
Sub Button2_Click
StartActivity(Button)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub