How to make a program that shows you HardWare Information in VB 08.

Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim searcher As New ManagementObjectSearcher( _
                      "root\CIMV2", _
                      "SELECT * FROM Win32_BIOS")
            Dim dt As DataTable = globals.getStructure
            For Each queryObj As ManagementObject In searcher.Get()
                If queryObj("BIOSVersion") Is Nothing Then
                    globals.addRow(dt, "BIOSVersion", queryObj("BIOSVersion"))
                Else
                    Dim arrBIOSVersion As String()
                    arrBIOSVersion = queryObj("BIOSVersion")
                    For Each arrValue As String In arrBIOSVersion
                        globals.addRow(dt, "BIOSVersion", arrValue)
                    Next
                End If
                globals.addRow(dt, "CurrentLanguage", queryObj("CurrentLanguage"))
                globals.addRow(dt, "Description", queryObj("Description"))
                globals.addRow(dt, "Manufacturer", queryObj("Manufacturer"))
                globals.addRow(dt, "PrimaryBIOS", queryObj("PrimaryBIOS"))
                globals.addRow(dt, "ReleaseDate", queryObj("ReleaseDate"))
            Next
            Me.DataGridView1.DataSource = dt

        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
        Try
            Dim searcher As New ManagementObjectSearcher( _
            "root\CIMV2", _
            "SELECT * FROM Win32_Bus")
            Dim dt As DataTable = globals.getBusStructure
            For Each queryObj As ManagementObject In searcher.Get()
                globals.addBus(dt, Convert.ToString(queryObj("BusType")), queryObj("DeviceID"), queryObj("PNPDeviceID"), queryObj("SystemName"))
            Next
            Me.DataGridView2.DataSource = dt
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
        Try
            Dim searcher As New ManagementObjectSearcher( _
                  "root\CIMV2", _
                  "SELECT * FROM Win32_MotherboardDevice")

            Dim dt As DataTable = globals.getMotherBoardDevice
            For Each queryObj As ManagementObject In searcher.Get()
                globals.addMotherBoardDevice(dt, queryObj("DeviceID"), queryObj("PrimaryBusType"), queryObj("SecondaryBusType"))
            Next
            Me.DataGridView3.DataSource = dt
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
        Try
            Dim searcher As New ManagementObjectSearcher( _
                  "root\CIMV2", _
                  "SELECT * FROM Win32_MemoryDevice")

            Dim dt As DataTable = globals.getMemoryDeviceStructure
            For Each queryObj As ManagementObject In searcher.Get()
                globals.addMemoryDevice(dt, queryObj("DeviceID"), Convert.ToString(queryObj("EndingAddress")), Convert.ToString(queryObj("StartingAddress")), queryObj("SystemName"))
            Next
            Me.DataGridView4.DataSource = dt
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
        Try
            Dim searcher As New ManagementObjectSearcher( _
                  "root\CIMV2", _
                  "SELECT * FROM Win32_SoundDevice")

            Dim dt As DataTable = globals.getSoundDeviceStructure
            For Each queryObj As ManagementObject In searcher.Get()
                globals.addSoundDevice(dt, queryObj("Manufacturer"), queryObj("Name"), queryObj("PNPDeviceID"), queryObj("ProductName"))
            Next
            Me.DataGridView5.DataSource = dt
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
        Label1.Text = "*** BIOS INFORMATION ***" + vbNewLine + vbNewLine + _
        "Application Name : " + Application.ProductName + vbNewLine + vbNewLine + _
        "Application Version : " + Application.ProductVersion + vbNewLine + _
        vbNewLine + "Author Name : DogEatsCat" + vbNewLine + vbNewLine + _
        "Todays Date : " + Date.Today.ToString
    End Sub
End Class

Module globals
    Public Function getSoundDeviceStructure() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn("Manufacturer"))
        dt.Columns.Add(New DataColumn("Name"))
        dt.Columns.Add(New DataColumn("PNPDeviceID"))
        dt.Columns.Add(New DataColumn("ProductName"))
        Return dt
    End Function
    Public Sub addSoundDevice(ByRef dt As DataTable, ByVal Manufacturer As String, ByVal Name As String, ByVal PNPDeviceID As String, ByVal ProductName As String)
        Dim dr As DataRow
        dr = dt.NewRow
        dr("Manufacturer") = Manufacturer
        dr("Name") = Name
        dr("PNPDeviceID") = PNPDeviceID
        dr("ProductName") = ProductName
        dt.Rows.Add(dr)
    End Sub
    Public Function getMemoryDeviceStructure() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn("DeviceID"))
        dt.Columns.Add(New DataColumn("EndingAddress"))
        dt.Columns.Add(New DataColumn("StartingAddress"))
        dt.Columns.Add(New DataColumn("SystemName"))
        Return dt
    End Function
    Public Sub addMemoryDevice(ByRef dt As DataTable, ByVal DeviceID As String, ByVal EndingAddress As String, ByVal StartingAddress As String, ByVal SystemName As String)
        Dim dr As DataRow
        dr = dt.NewRow
        dr("DeviceID") = DeviceID
        dr("EndingAddress") = EndingAddress
        dr("StartingAddress") = StartingAddress
        dr("SystemName") = SystemName
        dt.Rows.Add(dr)
    End Sub
    Public Function getMotherBoardDevice() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn("DeviceID"))
        dt.Columns.Add(New DataColumn("PrimaryBusType"))
        dt.Columns.Add(New DataColumn("SecondaryBusType"))
        Return dt
    End Function
    Public Sub addMotherBoardDevice(ByRef dt As DataTable, ByVal DeviceID As String, ByVal PrimaryBusType As String, ByVal SecondaryBusType As String)
        Dim dr As DataRow
        dr = dt.NewRow
        dr("DeviceID") = DeviceID
        dr("PrimaryBusType") = PrimaryBusType
        dr("SecondaryBusType") = SecondaryBusType
        dt.Rows.Add(dr)
    End Sub
    Public Function getBusStructure() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn("BusType"))
        dt.Columns.Add(New DataColumn("DeviceID"))
        dt.Columns.Add(New DataColumn("PNPDeviceID"))
        dt.Columns.Add(New DataColumn("SystemName"))
        Return dt
    End Function
    Public Sub addBus(ByRef dt As DataTable, ByVal BusType As String, ByVal DeviceID As String, ByVal PNPDeviceID As String, ByVal SystemName As String)
        Dim dr As DataRow
        dr = dt.NewRow
        dr("BusType") = BusType
        dr("DeviceID") = DeviceID
        dr("PNPDeviceID") = PNPDeviceID
        dr("SystemName") = SystemName
        dt.Rows.Add(dr)
    End Sub
    Public Sub addRow(ByRef dt As DataTable, ByVal p As String, ByVal v As String)
        Dim dr As DataRow
        dr = dt.NewRow
        dr("Property") = p
        dr("Value") = v
        dt.Rows.Add(dr)
    End Sub
    Public Function getStructure() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn("Property"))
        dt.Columns.Add(New DataColumn("Value"))
        Return dt
    End Function
End Module