在 Form_Load 写入
创新互联公司 - 达州服务器托管，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，达州服务器托管，西南服务器托管，四川/成都大带宽，成都机柜租用，四川老牌ＩＤＣ服务商
Dim cmd As String = Command()
cmd 就是传入的参数了。
就看你怎么利用了。
你要这样子写
a = Shell(App.Path "\data\A.bat", vbNormalFocus)
忘记说了，补充一下
还有说明一下，当你用(App.Path 来指定路径的时候，在VB6里按F5运行是会找不到此文件的。你要把程序打包成exe后才有效果的，确保 你的exe文件和Data在一个目录中。！
因为你按F5运行后你的当前应用程序路径是你的VB的安装路径，而不是你的 当前工程文件所保存的路径。。。。。
我觉得应该有两种解决方法
1：把patran的安装路径添加到系统环境变量的path属性下；
2：在你的批处理里面改为如下格式，patran完整路径（如c:\MSC.software\········patran.exe)+ "-sfp patran.ses"，也就是下面这种情况试下“c:\MSC.software\········patran.exe -sfp patran.ses -b -ans yes”