VB里调用exe文件，但是一段时间以后怎么结束它呢

Dim i As Long '定义i为用来储存进程ID

Private Sub Command1_Click() '建立一个按钮用来调用exe文件
i = Shell("C:\我的应用程序.exe", vbNormalFocus) '自己改路径
End Sub

Private Sub Command2_Click() '建立一个按钮用来结束刚才启动的exe程序
Shell "ntsd -c q -p " & i, vbHide '这个就是结束程序进程的代码了
End Sub