Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
' The panel and bitmap I loaded as a background are showing fine now
' I can get the X and Y fine if I put code to check that here
' if I put a sp.play command here no sound is heard.
End Sub
Sub Panel1_Click
sp.Play(LoadID2, 1, 1, 1, 2, 1)
' I also tried it gamesoundID2 = sp.Play(LoadID2, 1, 1, 1, 2, 1)
' again I hear nothing. Yes the volume is up.
End Sub
Sub Exit_but_Click
gameoundID1 = sp.Play(LoadID1, 1, 1, 1, 0, 1) ' nothing is heard
'or sp.play(LoadID1,1,1,1,0,1) ...again nothing is audible.
MakeExit =2 ' a var I made up 'anticipating creating a turn off the program routine
End Sub