VB.Net Shuffle String

    Public Function ShuffleString(len As Integer) As String // String tipinde fonksiyon tanımladık
        Dim s As String = "" // "" atanmış bir string oluşturduk
        Dim chr() As Char = New Char() {"A", "B","C","Ç","D","E","F","G","Ğ","H","İ","I","J","K","L","M","N","O","Ö","P","R","S","Ş","T","U","Ü","V","Y","Z"}
        // dizeli karakter değişkenimizi tanımladık ve içine harfler atadık
       Dim rand As New Random() // Rastgele değişkenimizi ayarladık

        For x As Integer = 0 To len // Fonksiyon içinde istediğimiz len(uzunluk) değişkenimize göre for döndürdük
            s += chr(rand.Next(0, chr.Length)) // daha sonra "" atadığımız string'e 0 ile karakter dizemizin uzunluğu arasında rastgele seçim yapan bir
        // özellik ile rastgele karakter eklettik
        Next

        Return s // baştaki boş değişkene döndük
    End Function

Me.Text = ShuffleString(10) // On karakterlik bir rastegele title oluşturur.

 Me.Text = ShuffleString(New Random().Next(0, 100)) // 0 ile 100 arasında rastgele bir sayı seçicek ve o uzunlukta rastgele bir string oluşturacak.