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