调用shell函数（很久不用了，希望正确）private sub command1_click()dim x as integerx=shell("c:\run.vbs",1) '本行已修改end subx无用，但是必须得有 shell函数后面还得有一个窗口类型
shell "c:\run.vbs"
