Sub btnEndGame_Click
iChoice = Msgbox2("Confirm exiting the game", CMN.strGameName, "Yes", "", "No", bmpQuestion)
If iChoice = DialogResponse.POSITIVE Then
CallSub(BlueToothService, "CloseBlueToothConnection")
StopService(BlueToothService)
Activity.Finish
Else
Return
End If
End Sub