How to apply slide transition effects during images to video conversion using Image To Video SDK

Imports BytescoutImageToVideoLib
Module Module1
Sub Main()
Console.WriteLine("Converting JPG slides into video, please wait..")
 
 
' Create BytescoutImageToVideoLib.ImageToVideo object instance
 
Dim converter As ImageToVideo = New ImageToVideo()
' Activate the component
 
converter.RegistrationName = "demo"
 
converter.RegistrationKey = "demo"
' Enable transition effects for the first and last slide
 
converter.UseInEffectForFirstSlide = True
 
converter.UseOutEffectForLastSlide = True
' Add images and set slide durations and transition effects
 
Dim slide As Slide
 
slide = CType(converter.AddImageFromFileName("..\..\..\..\slide1.jpg"), Slide)
slide.Duration = 3000 ' 3000ms = 3s
 
slide.InEffect = TransitionEffectType.teFadeIn
 
slide.OutEffect = TransitionEffectType.teFadeOut
slide = CType(converter.AddImageFromFileName("..\..\..\..\slide2.jpg"), Slide)
slide.Duration = 3000
 
slide.InEffect = TransitionEffectType.teSlideLeft
 
slide.OutEffect = TransitionEffectType.teSlideRight
slide = CType(converter.AddImageFromFileName("..\..\..\..\slide3.jpg"), Slide)
slide.Duration = 3000
 
slide.InEffect = TransitionEffectType.teSlideDown
 
slide.OutEffect = TransitionEffectType.teSlideUp
' Set output video size
converter.OutputWidth = 400
 
converter.OutputHeight = 300
' Set output video file name
 
converter.OutputVideoFileName = "result.wmv"
' Run the conversion
 
converter.RunAndWait()
Console.WriteLine("Conversion is done. Press any key to continue...")
 
Console.ReadKey
 
 
' Open the result video file in default media player
 
Process.Start("result.wmv")
End Sub
End Module