ممكن مساعدة في دالة Rnd توليد الأرقام العشوائي

السلام عليكم ورحمة الله وبركاته

بصراحة خبرتكم في البرجمة هي الي دفعتني اني اطلب منكم المساعدة

واتمنى الاقي عندكم حل لمشكلتي

انا احتاج اني اولّد مفتاح يتكون من 26 حرف وهي الحروف الأبجدية الانجليزية من a إلى z

بس في كل مرة يولد مفتاح بترتيب مختلف للحروف الست والعشرين

فلو ربطت كل حرف برقم من 0 الى 25 على الترتيب واستخدمت دالة Rnd راح يولد لي حروف عشوائية صحيح بس راح يكرر فيها

وانا احتاج اني ما أكرر في الحروف بس اغير ترتيبهم

فهل فيه طريقة تمنع التكرار

هذا الكود حق برنامجي

Dim alpha(25) As String
Dim f As Integer

Private Sub Command1_Click()
Text1 = ""
For i = 0 To 25
f = Int((25 * Rnd) + 1)
Text1 = Text1 + alpha(f)
Next
End Sub

Private Sub Form_Load()
alpha(0) = "a"
alpha(1) = "b"
alpha(2) = "c"
alpha(3) = "d"
alpha(4) = "e"
alpha(5) = "f"
alpha(6) = "g"
alpha(7) = "h"
alpha(8) = "i"
alpha(9) = "j"
alpha(10) = "k"
alpha(11) = "l"
alpha(12) = "m"
alpha(13) = "n"
alpha(14) = "o"
alpha(15) = "p"
alpha(16) = "q"
alpha(17) = "r"
alpha(18) = "s"
alpha(19) = "t"
alpha(20) = "u"
alpha(21) = "v"
alpha(22) = "w"
alpha(23) = "x"
alpha(24) = "y"
alpha(25) = "z"
End Sub

وايضا رفعته في المرفقات

انتظر دركم

ولكم جزيل الشكر

___________.zip