Fra VB6 Til VB Net (VMI project)

Hej jeg har følgende lille kodestump lavet i VB6 og som fungerer perfekt

Hvordan laver jeg den samme kode i VB Net så den også kan fungere.

Private Sub Command1_Click()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",
, 48)
For Each objItem In colItems
    Text1.Text = "PNPDeviceID: " & objItem.PNPDeviceID
Next
End Sub

Jeg har forsøgt mange ting men jeg kan ikke få det til at fungere.

Jeg kan løse problemt via en dll, men jeg vil gerne have samme funktion i ren VB Net kode

Håber der er en der kan hjælpe mig

PÅ Forhånd mange tak

Bjarne Østergård