- Код: Выделить всё
For c = 1 To ListBox1.Items.Count - 1
pc1.InstanceName = Mid(ListBox1.Items.Item(c), 1, Len(ListBox1.Items.Item(c)) - 4)
vall = pc1.NextValue
Debug.Print(ListBox1.Items.Item(c) & ":" & vall)
Next
почему напротив каждого процесса выдает 0, хотя я точно знаю что должно бтыть не так