dobry kod pod generator

Witam, szukam jakiegoś dobrego kodu do zrobienia generatora. Posiadam tylko taki który znajduje się poniżej. Jest słaby bo po każdym otworzeniu apki pokazują się te same dane, po 2 często się powtarzają .. Czy istnieje kod który przy każdym otwarciu apki będzie dawał różne dane ?

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