Function GetChassisName(ByVal typ As Int32) As String        ' 1-24
        Return Choose(typ, "Other", "Unknown", "Desktop", "Low Profile" & _
          "Desktop", "Pizza Box", "Mini Tower", _
               "Tower", "Portable", "Laptop", "Notebook", "Hand Held", "Docking" & _
               "Station", "All in One", _
               "Sub Notebook", "Space-Saving", "Lunch Box", "Main System" & _
               "Chassis", "Expansion Chassis", "Sub Chassis", _
               "Bus Expansion Chassis", "Peripheral Chassis", "Storage" & _
               "Chassis", "Rack Mount Chassis", "Sealed-Case PC")
End Function