Form_Load
Dim Process As New Process()
Dim Count As Integer = 0
ListView1.Items.Clear()
For Each Process In Process.GetProcesses(My.Computer.Name)
On Error Resume Next
ListView1.Items.Add(Process.ProcessName)
Count += 1
Next
ToolStripStatusLabel1.Text = "Processes: " & ListView1.Items.Count