Sub LoadVideo(vid$)

Loads a video track