I'm not familiar with shockwave, but I've run into this when using shell, and when using command line arguments. It appears that the variable AxShockwaveFlash1.Movie contains the viewer .exe path and the name of the video to be displayed.
Since the path to the file has spaces, you can try enclosing the file name in quotes.
Also, there should be a space between the executable and the command line argument, in this case, the filename.
You're code sets the AxShockwaveFlash.Movie value to something like:
c:\program files\shockwave\sw.exeC:\Documents and Settings\Administrator\Desktop\Lib\nobel.swf
My suggestion:
dim q as string=chr(34)
AxShockwaveFlash1.Movie = Application.StartupPath & " " & q & "C:\Documents and Settings\Administrator\Desktop\Lib\nobel.swf" & q
AxShockwaveFlash1.Play()
Now the value would be:
c:\program files\shockwave\sw.exe "C:\Documents and Settings\Administrator\Desktop\Lib\nobel.swf"
Hope this helps.