Function vbGet(x)
    On Error Resume Next
    Dim swControl, swVersion
    Set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(x))
    If (IsObject(swControl)) Then
        swVersion = swControl.GetVariable("$version")
    Else
        swVersion = 0
    End If
    vbGet = swVersion
End Function