Sub Set_Volume(Channel As Int, CurrentVolume As Int, ShowUIControl As Boolean)
Dim p As Phone 'Uses Phone Library
Dim MaxVol = p.GetVolume(Channel) As Int
If CurrentVolume +1 < MaxVol Then
p.SetVolume(Channel, CurrentVolume, ShowUIControl)
End If
End Sub