si obvio tenes que importar, yo solo te puse la estructura y la API que se usa para hacer lo que queres, pero antes tenes que importar asi:
    
Código vb:
Ver original- Imports System.Runtime.InteropServices 
mira te pongo un ejemplo sin la api , esta con WMI, a mi me funca barbaro, fijate si te anda.    
Código vb:
Ver original- Imports System.Management 
-   
- Public Class Form1 
-   
-     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
-         Dim Buscar As New ManagementObjectSearcher("SELECT * FROM Win32_DesktopMonitor") 
-   
-         For Each queryObj As ManagementObject In Buscar.Get() 
-             MsgBox("La Marca y Modelo de tu Monitor es '" & queryObj("Caption") & "'") 
-             MsgBox("El Fabricante del Monitor es '" & queryObj("MonitorManufacturer") & "'") 
-         Next 
-     End Sub 
- End Class 
antes agrega la referencia a System.Managament 
saludos.