为什么任务计划不能执行

我用类似于下面的代码在windows中建立了一个任务计划
Private Sub Command1_Click()
    Dim s As String
    s = Environ$("ComputerName")
    Shell "cmd  /c  at  \\" & s & " 12:00:00 /every:M,T,W,Th,F,S,Su  "myapp.exe", 0
End Sub但我发现这个程序执行到一半就没有反应了,因为程序要从注册表里取出数据来,我发现这个数据也没取出来,只显示一部分界面,然后就是没反应,这是为什么呢