Sub SetVideoVolume( vol )

Sets the volume of the video track