Sub B4XSeekBarVolume_TouchStateChanged (Pressed As Boolean)
kvs.put( _
"Song" & intCurrentSongSelected & _
"Creature" & intCurrentCreatureSelected & "Volume", B4XSeekBarVolume.Value / 100)
If ServiceModule.blnAsongIsPlaying Then
CallSubDelayed(ServiceModule, "CancelTheSong")
CallSubDelayed(ServiceModule, "PlayTheSong")
If ServiceModule.blnScheduleIsPlayingSong Then
CallSubDelayed(ServiceModule, "CancelSleepTimer")
Else
CallSubDelayed(ServiceModule, "StartSleepTimer")
End If
End If
ToastMessageShow("Volume now set at " & B4XSeekBarVolume.Value & "%.", False)
End Sub