[Vb.net] Rasgele Random Oluşturma

[color=#b5b5b5][SIZE=3][font=tahoma, verdana, geneva, lucida, ]Private Sub Button1_Click()
        Dim k As String() = {"t","a","h","h","o"}
        TextBox1.Text = ""
        For i As Integer = 0 To 4 'Üretilecek rastgele harf ve sayıların kaç karakter olacağını belirliyoruz ve 1 eksiğini yazıyoruz.
            Randomize()
            TextBox1.Text += k(Rnd() * 5) 'k değişkinimize tanımladığımız harf ve sayı miktarını yazıyoruz.
        Next
          End Sub[/FONT][/SIZE][/color]