怎么关闭当前的程序？
比如:按时打开QQ, 然后关闭 QQ 如何关闭？ 请指教 谢谢
示例，打开、关闭记事本 Option Explicit Dim rtn As Long
Private Sub Command1_Click() rtn = Shell("notepad.exe", vbNormalFocus) End Sub
Private Sub Command2_Click() AppActivate rtn SendKeys "%{F4}" End Sub
