教程上的步骤没错，你做的时候，确定机子上有active movie这个控件吗？或者你再简单点，把这个控件加上去后，什么都不改，直接双击空白地方，在FORM_LOAD里写上filename=的那名，然后就编译，看会不会通过。如果还不行，就不要加这个控件了，只新建个工程，在Form_Load里写句： msgbox "测试"然后就编译，看能否通过，也有可能是你VB的问题。
颜色值超出改成&H800
