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