How to convert SWF flash movie into AVI video in Visual Basic 6 using SWF To Video SDK

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"

    MsgBox App.Path

    ' Add SWF file and set its output filename
    converter.SetMovie "SlideShowWithEffects.swf", "result.avi"

    ' 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.avi", 1, false
    Set shell = Nothing

    Set converter = Nothing

End Sub