Chamilo is a learning management system focused on ease of use and accessibility
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
Function VBGetSwfVer(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
|
|
|
|
|
