Información WMI sobre la placa base (MotherBoard)

Imports System.Management
Public Class Form1
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim mo As System.Management.ManagementObject
        Dim moq As System.Management.ObjectQuery = New System.Management.ObjectQuery("Select * from Win32_MotherboardDevice")
        Dim mos As New System.Management.ManagementObjectSearcher(moq)
        For Each mo In mos.Get()
            MessageBox.Show("Availability = " & mo("Availability") & vbCrLf & _
                            "Caption = " & mo("Caption") & vbCrLf & _
                            "ConfigManagerErrorCode = " & mo("ConfigManagerErrorCode") & vbCrLf & _
                            "ConfigManagerUserConfig = " & mo("ConfigManagerUserConfig") & vbCrLf & _
                            "CreationClassName = " & mo("CreationClassName") & vbCrLf & _
                            "Description = " & mo("Description") & vbCrLf & _
                            "DeviceID = " & mo("DeviceID") & vbCrLf & _
                            "ErrorCleared = " & mo("ErrorCleared") & vbCrLf & _
                            "ErrorDescription = " & mo("ErrorDescription") & vbCrLf & _
                            "InstallDate = " & mo("InstallDate") & vbCrLf & _
                            "LastErrorCode = " & mo("LastErrorCode") & vbCrLf & _
                            "Name = " & mo("Name") & vbCrLf & _
                            "PNPDeviceID = " & mo("PNPDeviceID") & vbCrLf & _
                            "PowerManagementSupported = " & mo("PowerManagementSupported") & vbCrLf & _
                            "PrimaryBusType = " & mo("PrimaryBusType") & vbCrLf & _
                            "RevisionNumber = " & mo("RevisionNumber") & vbCrLf & _
                            "SecondaryBusType = " & mo("SecondaryBusType") & vbCrLf & _
                            "Status = " & mo("Status") & vbCrLf & _
                            "StatusInfo = " & mo("StatusInfo") & vbCrLf & _
                            "SystemCreationClassName = " & mo("SystemCreationClassName") & vbCrLf & _
                            "SystemName = " & mo("SystemName"), "Información de la placa Base")
        Next mo
    End Sub
End Class