// Visual basic helper required to detect Flash Player ActiveX control version information

Function VBGetSwfVer(ByVal i)
    On Error Resume Next
    Dim swControl, swVersion
    swVersion = 0

    set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))

    If (IsObject(swControl)) Then
        swVersion = swControl.GetVariable("$version")
    End If

    VBGetSwfVer = swVersion
End Function