не срабатывает Application.DoEvents() -как побороть? (решено

[toxarbk]

Всем привет.
Возникла не совсем понятная затыка, в нижеследующем коде софтинка "замораживается" на весь перебор устройств:

Код: Выделить всё

private sub listdevices()
Dim info As System.Management.ManagementObject
        Dim search As System.Management.ManagementObjectSearcher
        Dim deviceName As String
        search = New System.Management.ManagementObjectSearcher("SELECT * From Win32_PnPEntity")

        For Each info In search.Get()
            Application.DoEvents()
            deviceName = CType(info("Caption"), String)
           Debug.WriteLine(deviceName)
        Next
end sub


Как бы с этим побороться?

[toxarbk]

Замена запроса на

Код: Выделить всё

search = New System.Management.ManagementObjectSearcher("SELECT * From Win32_PnPEntity Where Manufacturer=""FTDI""")


тоже не помогает. =\

[toxarbk]

Проблема решилась выносом операций с System.Management в отдельный поток.