Private Sub GameBoard_Touch(Action As Int, X As Float, Y As Float)
' Get pixel color on first touch only
If Action = pnlGameBoard.ACTION_DOWN Then
Dim intTouchColor As Int = cvsGameZone.Bitmap.GetPixel(X, Y)
If intTouchColor <> intGameBoardColor Then
' Elf has been caught, hide and play random sound
Elf_Hide
intHitCount = intHitCount + 1
lblHitCount.Text = intHitCount
audSoundPool.Play(arrAudio(Rnd(0, 4)), 1, 1, 1, 0, 1)
End If
End If
End Sub