'Button1のClickイベントハンドラPrivate Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Button1.Click
'Processオブジェクトを作成するDim p As New System.Diagnostics.Process()
'起動するファイルを指定する
p.StartInfo.FileName = "notepad.exe"
'イベントハンドラがフォームを作成したスレッドで実行されるようにする
p.SynchronizingObject = Me'イベントハンドラの追加AddHandler p.Exited, New EventHandler(AddressOf p_Exited)
'プロセスが終了したときに Exited イベントを発生させる
p.EnableRaisingEvents = True'起動する
p.Start()
End Sub
Private Sub p_Exited(ByVal sender As Object, ByVal e As EventArgs)
'プロセスが終了したときに実行される
MessageBox.Show("終了しました。")
End Sub