Dim pwm As New List(Of String) 'Namensliste der kritischen Prozesse
 
Private Sub Timer1_Tick(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Timer1.Tick
 
     For Each p As Process In Process.GetProcesses
         Dim pn As String = p.ProcessName.ToUpper
 
         'Prozessname prüfen
         If Not pwm.Contains(pn) Then
            Try
              If p.MainModule.FileVersionInfo.ProductName = "VLC Media Player" _
                Then
                    'was auch immer
              End If
            Catch
               pwm.Add(pn) 'Prozessname bei Ausnahme notieren
            End Try
         End If
         p.Dispose()
     Next p
End Sub