Den Win32_VideoController austauschen
Bei
Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_VideoController")