Делаю так:
Dim s As Object = CreateObject("ShockwaveFlash.ShockwaveFlash")
s.Movie = "c:\vb.swf"
MsgBox(s.Width) -- тут получаю ошибку:
Общий член "Width" для типа "ShockwaveFlash" не найден.
Если добавлять референс на Flash.ocx, то всё работает, но это не приемлимо.
Что делать?