Imports System.Management
Public Class Form1
    Private Lb As New ListBox With {.Dock = DockStyle.Fill, .Parent = Me}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        GetHardwareDaten("Win32_VideoController")
    End Sub
 
    Sub GetHardwareDaten(ByVal name As String)
        Dim mos As New ManagementObjectSearcher("Select * from " & name)
        Dim moc As ManagementObjectCollection = mos.Get
        Dim mo As ManagementObject
        For Each mo In moc
            For Each pd As PropertyData In mo.Properties
                If Not pd.Value Is Nothing Then
                    Lb.Items.Add(pd.Name & " = " & pd.Value.ToString)
                End If
            Next
        Next
    End Sub
End Class