C# / VB.NET - [vb.net] case non và

salve a tutti, ho questo codice, dove nel select case indux, nel primo case: "case indux = 1" si genera sempre anche se il valore di indux e 0, se poi prima del select case provo a impostare indux = 3 allora non si genera nessun case, dov'è l'errore?
Grazie per le vostre risp!

Public Class Form1
    Dim estrazione As New Random()
    Dim sestina(5) As Int16 
    Dim imput(5) As Int16

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'array di valori immessi dagli utenti
        imput(0) = CType(NumericUpDown1.Value, Short)
        imput(1) = CType(NumericUpDown2.Value, Short)
        imput(2) = CType(NumericUpDown3.Value, Short)
        imput(3) = CType(NumericUpDown4.Value, Short)
        imput(4) = CType(NumericUpDown5.Value, Short)
        imput(5) = CType(NumericUpDown6.Value, Short)
        'array che contiene i valori visualizati a random
        sestina(0) = CType(estrazione.Next(1, 90), Int16)
        sestina(1) = CType(estrazione.Next(1, 90), Int16)
        sestina(2) = CType(estrazione.Next(1, 90), Int16)
        sestina(3) = CType(estrazione.Next(1, 90), Int16)
        sestina(4) = CType(estrazione.Next(1, 90), Int16)
        sestina(5) = CType(estrazione.Next(1, 90), Int16)
        'qui passo alle textbox i valori dentro le celle degli array
        TextBox1.Text = sestina(0)
        TextBox2.Text = sestina(1)
        TextBox3.Text = sestina(2)
        TextBox4.Text = sestina(3)
        TextBox5.Text = sestina(4)
        TextBox6.Text = sestina(5)
        'ora confrontiamo le scelete degli uetnti con i valori delle Textbox per vedere se c'è la vincita

        Dim indux As Single = 0

        For i = 0 To sestina.Count - 1
            For j = 0 To imput.Count - 1
                If sestina(i) = imput(j) Then
                    indux += 1
                End If
            Next
        Next
        Select Case indux
            Case indux = 0
                MessageBox.Show("ritenta Hai indovinato 0 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case indux = 1
                MessageBox.Show("ritenta Hai indovinato 1 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case indux = 2
                MessageBox.Show("ritenta Hai indovinato 2 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case indux = 3
                MessageBox.Show("Hai indovinato 3 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case indux = 4
                MessageBox.Show("Hai indovinato 4 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case indux = 5
                MessageBox.Show("Hai indovinato 5 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case indux = 6
                MessageBox.Show("Hai indovinato 6 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Select
    End Sub
End Class

Ho risolto tutto in chat con l'aiuto di dotNET!

e beh questi Case fatti un pò male