Private Sub Command1_Click()

    ' Create an instance of SWFToVideo ActiveX object
    Set converter = CreateObject("BytescoutSWFToVideo.SWFToVideo")

    ' Set debug log
    'converter.SetLogFile "log.txt"

    ' Register SWFToVideo
    converter.RegistrationName = "demo"
    converter.RegistrationKey = "demo"


    ' Set input SWF file
    converter.InputSWFFileName = "SlideShowWithEffects.swf"

    ' Set output video file
    converter.OutputVideoFileName = "result.wmv"

    ' Set output movie dimensions
    converter.OutputWidth = 640
    converter.OutputHeight = 480

    ' Run conversion
    converter.RunAndWait

    ' Open result in default media player
    Set shell = CreateObject("WScript.Shell")
    shell.Run "result.wmv", 1, false
    Set shell = Nothing

    Set converter = Nothing

End Sub