on error resume next
    if MSDetect = "true" Then
        for i = 2 to 6
            if not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

            else
                flashinstalled = 2
                flashversion = i
            end If
        next
    end If

    if flashinstalled = 0 Then
        flashinstalled = 1
    end If