Sub GetVideoSize(ByRef w, ByRef h)

Gets the size of video's frames