Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Show()
        Dim proc As Process = Diagnostics.Process.Start("notepad.exe")
        proc.EnableRaisingEvents = True
        AddHandler proc.Exited, AddressOf OnNotePadExited
    End Sub
 
    Sub OnNotePadExited(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Dim proc As Process = CType(sender, Process)
            MsgBox(proc.ExitTime.ToString)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub