on error resume next
            If MSDetect = "true" Then
                For i = 2 to 10
                    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