Anyone see why this isn't working?
c = lvProc.Items.Count
z = 0
lbl1.Text = "You have " & c & " Processes Running"
For i = 0 To c - 1
sitem = lvProc.Items(0 + z).Text.ToString
p.GetProcessesByName(sitem)
If (p.Responding = True) Then
lvProc.Items(0 + i).SubItems(1).Text = "Running"
Else
lvProc.Items(0 + i).SubItems(1).Text = "Not Responding"
End If
z = z + 1
Next
Thanks
c = lvProc.Items.Count
z = 0
lbl1.Text = "You have " & c & " Processes Running"
For i = 0 To c - 1
sitem = lvProc.Items(0 + z).Text.ToString
p.GetProcessesByName(sitem)
If (p.Responding = True) Then
lvProc.Items(0 + i).SubItems(1).Text = "Running"
Else
lvProc.Items(0 + i).SubItems(1).Text = "Not Responding"
End If
z = z + 1
Next
Thanks