dim lreturn as long (4)
lreturn=mciexecute(“open c:\mydocu~1\music01.dat type mpegvideo”) (5)
lreturn=mciexecute(“close c:\mydocu~1\music01.dat type mpegvideo”) (6)
从这里可以看出,设定别名的好处是减少了代码的输入。