退出VB应用程序，连带退出指定的进程

Private Sub proExit_Click()

Shell "cmd /c taskkill /f /im process.exe"

Unload Me

End

End Sub

应用启动cmd程序，不显示cmd窗口

Private Sub startDemonProcess()

On Error Resume Next

Dim ProcessPath As String

ProcessPath = App.Path & "\process.exe"

Dim RetVal

RetVal = Shell(ProcessPath,vbHide) '参数vbHide用于设置不显示启动的程序窗口

End Sub