Imports System.Management
Public Class Form1  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim hware() As String = {"VideoController", "Processor", "CDROMDrive", _
        "Bios"}
        For Each hw As String In hware
            GetHardwareName(hw)
        Next
    End Sub
 
    Sub GetHardwareName(ByVal name As String)
        Dim mos As New ManagementObjectSearcher("\root\cimv2", "SELECT * FROM " _
          & "Win32_" & name)
        For Each mo As ManagementObject In mos.Get
            ListBox1.Items.Add(name & ": " & mo.GetPropertyValue( _
              "Name").ToString.Trim)
        Next
    End Sub
End Class