软件编写失败，代码执行错误，求大神赐教。。

实习目的，把所所有批处理集中整合到一个界面的软件里面，直观了然，方便操作，如下图

可是这些按钮都是执行一个当前目录下面的一个带参数的exe文件，
比如：
第一个按钮把ADB重启，，，
在批处理里面是
@ECHO OFF
color b
Echo 正在重新启动手机，请稍等.....
echo.
echo 如果没有正常启动手机，请检查手机设置-应用程序-开发-USB调试(勾选)。
echo.
adb reboot
echo.
echo 已经重新启动手机!
echo.
pause
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,当是在vb里面代码写出来就不行，，

Private Sub Command1_Click()
Shell (App.Path & "/adb.exe /reboot")
End Sub

 

ADB.exe是执行程序，，/reboot是执行参数？

为什么不执行，求大神赐教，
呈上有问题的VB脚本工程文件，，和正常批处理文件