Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim ChassisTyp As Integer
        Dim temp As String
        ChassisTyp = 2
        Select Case ChassisTyp
            Case 1
                temp = "Other"
            Case 2
                temp = "Unknown"
            Case 3
                temp = "Desktop"
            Case Else
                temp = "Not Defined"
        End Select
        MessageBox.Show("ChassisTyp = " & temp, "", MessageBoxButtons.OK, _
          MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
    End Sub