Dim Count As Integer = 0
        For Each Process In Process.GetProcesses(My.Computer.Name)
            On Error Resume Next
            ListBox1.Items.Add(Process.ProcessName)
            Count += 1
Next