on error resume next 	
bsoft_vbp3 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))