Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
   Button1.Click
        ProzesseJetztBeenden("Microsoft.Msn.Weather", True)
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        ProzesseJetztBeenden("Microsoft.Msn.Weather", False)
    End Sub
    Private Sub ProzesseJetztBeenden(wert As String, Vorgang As Boolean)
        Try
            For Each prozess In Process.GetProcessesByName(wert)
                If Vorgang Then
                    prozess.CloseMainWindow()   ' ICON bleibt, bis auf klick.
                    ' If Prozess eine App dann Kill
                    ' Oder, Taskleiste aktualsieren
                    ' Oder, Objektname auslesen...
                Else
                    prozess.Kill()              ' ICON geht weg.
                End If
            Next
        Catch
        End Try
    End Sub

Private Function PrüfeObAppOrNot(pfad As String) As Boolean
        Dim zeilen() As String = pfad.Split("\")
        If zeilen(0) = "c:" And zeilen(1) = "program files" And zeilen(2) = _
          "windowsapps" Then
            If System.IO.File.Exists(pfad) Then Return True
        End If
        Return False
    End Function
 
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles _
      Label1.Click
 
        If PrüfeObAppOrNot(Me.lvProzesse.Items( _
          Me.lvProzesse.FocusedItem.Index).SubItems(2).Text) Then
            MsgBox("Ja, es ist eine APP!")
        Else
            MsgBox("Nein, das ist keine App!")
        End If
    End Sub