[SaLoOoMX]

كود :

Dim Random = New Random
        Dim Rand As String = ""
        Do Until Val(Rand.Length) >= 2
            Rand &= ChrW(Random.Next(Asc("A"), Asc("Z")))
            TextBox1.Text = Rand
        Loop

تستطيع ان تزيد عدد الاحرف باستبدال الرقم 2 الى اي رقم تريد


اذا اردت ان يصنع لك لسته بعدد الاحرف ضع هذا الكود في timer