Sto creando un compilatore automatico per motivi didattici.
Genero una stringa random che va immessa in una textbox.
Premo un pulsante e la procedura dovrebbe ripartire da capo.
Il problema è che quando cominciano le istruzioni sulla textbox ci mette un valore (seppur corretto) poi istantaneamente la cancella e ci mette un altro valore sempre corretto.
Io vorrei semplicemente che una volta generato quel valore, lo lasciasse e che ne generasse uno nuovo solo dopo aver cliccato sul bottone che fa ripartire il procedimento.

Sapete trovare il difetto che provoca questo risultato? Oppure è il mio pc troppo veloce a fare questo lavoro e devo mettere delle pause tra un istruzione e l'altra?

codice:
Select Case htmle.Name

                Case "TEXTBOX1"
                    Dim campo1 As String
                    For i As Integer = 0 To 6
                        letter = ChrW(gen2.Next(Asc("a"), Asc("z") + 1))
                        campo1 = campo1 & letter
                        i += 1
                    Next
                    textbox1.Text = campo1

                Case "TEXTBOX2"
                    Dim campo2 As String
                    For i As Integer = 0 To 6
                        letter = ChrW(gen2.Next(Asc("a"), Asc("z") + 1))
                        campo2 = campo2 & letter
                        i += 1
                    Next
                    textbox2.text = campo2
End Select