Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
img1 = LoadBitmap(File.DirAssets, "image1.jpg")
img2 = LoadBitmap(File.DirAssets, "image2.jpg")
End If
Activity.SetBackgroundImage(img1)
End Sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float)
If Action = Activity.ACTION_DOWN Then
Activity.SetBackgroundImage(img2)
Else If Action = Activity.ACTION_UP Then
Activity.SetBackgroundImage(img1)
End If
End Sub