Dim ChassisTyp As Integer
 Try
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT" & _
              "* FROM Win32_SystemEnclosure")
            For Each queryObj As ManagementObject In searcher.Get()
                Console.WriteLine("ChassisTypes: {0}", queryObj("ChassisTypes"))
                If queryObj("ChassisTypes") Is Nothing Then
                    Console.WriteLine("ChassisTypes: {0}", queryObj( _
                      "ChassisTypes"))
                Else
                    Dim arrChassisTypes As UInt16()
                    arrChassisTypes = queryObj("ChassisTypes")
                    For Each arrValue As UInt16 In arrChassisTypes
                        Console.WriteLine("ChassisTypes: {0}", arrValue)
                    Next
                End If
            Next
            Select Case ChassisTyp
            Case 1 = "Other"
            Case 2 = "Unknown"
            Case 3 = "Desktop"
            Case 4 = "Low Profile Desktop"
            Case 5 = "Pizza Box"
            Case 6 = "Mini Tower"
            Case 7 = "Tower"
            Case 8 = "Portable"
            Case 9 = "Laptop"
            Case 10 = "Notebook"
            Case 11 = "Hand Held"
            Case 12 = "Docking Station"
            Case 13 = "All in One"
            Case 14 = "Sub Notebook"
            Case 15 = "Space-Saving"
            Case 16 = "Lunch Box"
            Case 17 = "Main System Chassis"
            Case 18 = "Expansion Chassis"
            Case 19 = "Sub Chassis"
            Case 20 = "Bus Expansion Chassis"
            Case 21 = "Peripheral Chassis"
            Case 22 = "Storage Chassis"
            Case 23 = "Rack Mount Chassis"
            Case 24 = "Sealed-Case PC"
           End Select
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & _
              err.Message)
        End Try