C# / VB.NET - Problemino col mio codice [vb.net]

cosa c'è che non và in questo mio codice? perchè si genera il case indux = 1, del select case indux anche se indux = 0?
grazie a tutti delle vostre risposte

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 index As Int16 = 0
        Dim indus As Int16 = 0
        Dim indux As Single = 0

        Do
            Select Case sestina(index)
                Case (sestina(index)) = (imput(indus))
                    indux += 1
            End Select
            indus += 1
            index += 1
        Loop Until (index >= 6) And (indus >= 6)
        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

Questo topic è in violazione di una o più norme del regolamento: pierotofy.it/pages/extras/forum/9/3839-regolamento/ .
    
Dopo averlo letto riapri un nuovo topic assicurandoti di aver rispettato le regole. Grazie per la tua pazienza.