[VB.NET] Generazione casuale di testo

[chsoftwares]

Ho aggiornato il codice:

    Const chars = "abcdefghilmnopqrstuvzywxj"    Private Sub generates_Click(sender As Object, e As EventArgs) Handles generates.Click
        If Check3.Checked = False And Check2.Checked = False And Check1.Checked = False Then
            MsgBox("Devi scegliere un opzione", vbCritical, "Errore")
        End If


        If Check1.Checked = True Then
            Text1.Text = Mid$("abcdfghjklmnpqrstvwxz", Int(Rnd() * 20) + 1, 10)
        End If


        If Check2.Checked = True Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZ", Int(Rnd() * 20) + 1, 10)
        End If


        If Check3.Checked = True Then
            Text1.Text = Mid$("0123456789987654321", Int(Rnd() * 19) + 1, 10)
        End If


        If Check2.Checked = True And Check1.Checked = True And Check3.Checked = False Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZabcdfghj#klmnpqrstvwxz", Int(Rnd() * 40) + 1, 10)
        End If


        If Check1.Checked = True And Check3.Checked = True And Check2.Checked = False Then
            Text1.Text = Mid$("abcdfghjklmnpqrstvwxz01234567#89987654321", Int(Rnd() * 39) + 1, 10)
        End If


        If Check2.Checked = True And Check2.Checked = True And Check1.Checked = False Then
            Text1.Text = Mid$("ABCDFGHJKLMNPQRSTVWXZ01234567#89987654321", Int(Rnd() * 39) + 1, 10)
        End If


        If Check3.Checked = True And Check2.Checked = True And Check3.Checked = True Then
            Text1.Text = Mid$("0123456789ABCDFGHJKLMNPQRSTVW#XZabcdfghjklmnpqrstvwxz", Int(Rnd() * 59) + 1, 10)
        End If
    End Sub

ho aggiustato minimamente ma niente non mi funziona come deve... come mai?