Pytanie Generowanie kodu, bez powtarzania

Jako, że jestem nowy na forum... WITAM!

I prosta sprawa... tworzę program w VB który ma generować powiedzmy 3 kody. KOD1, KOD2, KOD3, ale każdy z nich może zostać użyty tylko RAZ.

Mam w generatorze coś takiego: 

  Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()            Dim key As Integer            key = (Rnd() * 3)            Select Case key                Case 1                    TextBox1.Text = "KOD1"                Case 2                    TextBox1.Text = "KOD2"                Case 3                    TextBox1.Text = "KOD3"            End Select        End If    End Sub

Jak to zabezpieczyć aby jeden kod, mógł być generowany RAZ? 

ale żaden z nich może zostać użyty tylko RAZ.

To zdanie nie ma sensu, wiesz?

Ale na dole chyba się na szczęście poprawiłeś.

Stwórz prosty warunek: if case1 został wybrany, then... wiadomość np. "kod został już wykorzystany". else dalsza instrukcja programu.

(ode mnie gotowego kodu nie dostaniesz, bo się nigdy nie nauczysz sam).

Tylko, że nie ma wyrzucać żadnej wiadomości tylko po prostu jeżeli został wygenerowany = nie generuj go ponownie. Bez żadnej info czy ponownego klikania GENERUJ. 

 

@EDIT

 

Poprawione ^^

https://www.google.pl/search?q=if+nic+nie+r%C3%B3b&oq=if+nic+nie+r%C3%B3b&aqs=chrome..69i57.3172j0j4&sourceid=chrome&espv=210&es_sm=93&ie=UTF-8#q=return+0