Sub SwMute_CheckedChange (Checked As Boolean)
If SwMute.Checked = True Then
LabelMuted.text = "Sound Is On"
phThePhone.SetMute(phThePhone.VOLUME_ALARM, False)
phThePhone.SetMute(phThePhone.VOLUME_MUSIC, False)
phThePhone.SetMute(phThePhone.VOLUME_NOTIFICATION, False)
phThePhone.SetMute(phThePhone.VOLUME_RING, False)
phThePhone.SetMute(phThePhone.VOLUME_SYSTEM, False)
phThePhone.SetMute(phThePhone.VOLUME_VOICE_CALL, False)
kvConfigurationSettings.PutSimple1("Sound Is Muted", 0, "Not Muted")
Else
LabelMuted.text = "Muted"
phThePhone.SetMute(phThePhone.VOLUME_ALARM, True)
phThePhone.SetMute(phThePhone.VOLUME_MUSIC, True)
phThePhone.SetMute(phThePhone.VOLUME_NOTIFICATION, True)
phThePhone.SetMute(phThePhone.VOLUME_RING, True)
phThePhone.SetMute(phThePhone.VOLUME_SYSTEM, True)
phThePhone.SetMute(phThePhone.VOLUME_VOICE_CALL, True)
kvConfigurationSettings.PutSimple1("Sound Is Muted", 0, "Muted")
End If
End Sub