Sjón helstu fjarlægja tilfelli næmi

sjón helstu fjarlægja tilfelli næmi

        Dim country As String
        country = txtCountryInput.Text.ToUpper

        Select Case country
            Case Is = "FRANCE"
                lblOutput.Text = "Bonjour!"
            Case Is = "AMERICA"
                lblOutput.Text = "Hello!"
            Case Is = "JAPAN"
                lblOutput.Text = "Konnichiwa!"
            Case Else
                lblOutput.Text = "Invalid!"
        End Select