Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Try
            If p.CloseMainWindow() = True Then
                Label1.Text = "geschlossen!"
            End If
        Catch es As Exception
            MessageBox.Show(es.ToString)
        End Try
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            p = Process.Start(TextBox1.Text)
            'p.WaitForInputIdle()
            Label1.Text = "geöffnet"
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Try
            p.Kill()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub