' Video.vbs
  W = 640
  H = 480
  Set Movie = CreateObject("SWFScout.FlashMovie")
  Movie.InitLibrary "demo","demo"
 
' Movie creating and setting parameters
 
  Movie.BeginMovie 0,0,W,H,1,12,6
  Movie.Compressed = true
  Movie.SetBackgroundColor 255,255,255
 
 Font = Movie.AddFont( "Arial",12,true,false,false,false,0)
 FontBig = Movie.AddFont("Arial",40,true,false,false,false,DEFAULT_CHARSET)
 
'//////////////////////////
' VIDEO
'/////////////////////////
 
 Text = Movie.AddText2 ("Video",0,0,0,255,FontBig, W / 2, 60,2)
 Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text
 
  Video= Movie.AddVideoFromFileName("test.flv")
  Movie.FramesPerSecond= Movie.VIDEO_FramesPerSecond
  Movie.PlaceVideo Video,Movie.CurrentMaxDepth
  Movie.PLACE_SetTranslate 190,150
  Movie.ShowFrame Movie.VIDEO_FrameCount + 10
 
 Movie.EndMovie
 
 
 Movie.SaveToFile "Video.swf"