起動したアプリケーションを終了するには？ (ID:74983)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下記のプログラムのですが動作しません。恥ずかしいのですが、私にはどうにも分かりませんので教えていただけないでしょうか。 もちろん、全く違うプログラムでもかまいませんので、起動プログラムを終了させる方法を教えていただけないでしょうか？ 使用環境 win ME VB6−Learning プログラムのコピー Private Sub Command1_Click() Shell "C:\Program Files\NetMeeting\CONF.EXE", vbNormalFocus End Sub Private Sub Command2_Click() Dim Process As Object Dim SQL As String SQL = "SELECT Caption FROM Win32_Process" _ & " WHERE Name='C:\\Program Files\\NetMeeting\\CONF.EXE'" With GetObject("winmgmts:") For Each Process In .ExecQuery(SQL) Process.Terminate Next End With End Sub Private Sub Form_Load() End Sub