Отсутствует ShockwaveFlash ( flash.ocx) - VB

Формулировка задачи:

Нету ShockwaveFlash (flash.ocx) не смотря на то что в системе стоит флеш плеер, так же в браузер он тоже установлен, а вот vb6 его вобще не как не видит не через компоненты не через References. Мож кто подскажет как по новой эта библиотека называется и как с ней работать?)

Решение задачи: «Отсутствует ShockwaveFlash ( flash.ocx)»

textual
                            Листинг программы 
                        

                            Dim Swf() As Byte
swf=LoadResData(101, "CUSTOM")' вытаскиваешь из ресурсов
Open "C:\0001.swf" For Binary As #1
Put #1, , Swf
Close #1
                        