' Code in Main Activity
Type MyParameters(AutoMoveToNextHole as Boolean, PlaySound as Boolean, UsePhoneContacts as Boolean, _
SendScoreCardViaEmail as Boolean, SendScoreCardViaSMS as Boolean, SendScoreCardViaWhatsapp as Boolean)
Dim tMyP as MyParameters
tMyP.AutoMoveToNextHole=False
tMyP.PlaySound=True
tMyP.UsePhoneContacts=True
tMyP.SendScoreCardViaEmail=True
tMyP.SendScoreCardViaSMS=False
tMyP.SendScoreCardViaWhatsapp=True