كيف اعمل الارقام والحروف التي تتولد عشوائيا

ده كود انا عملة بيعمل حروف متغيرة كل مرة

    Public Function ArabicName() As String
        Dim liter As New Random
        Dim arrylast As New ArrayList
        arrylast.Add("")
        arrylast.Add(" ")
        arrylast.Add("أ")
        arrylast.Add("ب")
        arrylast.Add("ت")
        arrylast.Add("ث")
        arrylast.Add("ج")
        arrylast.Add("ح")
        arrylast.Add("خ")
        arrylast.Add("د")
        arrylast.Add("ذ")
        arrylast.Add("ر")
        arrylast.Add("ز")
        arrylast.Add("س")
        arrylast.Add("ش")
        arrylast.Add("ص")
        arrylast.Add("ض")
        arrylast.Add("ط")
        arrylast.Add("ظ")
        arrylast.Add("ع")
        arrylast.Add("غ")
        arrylast.Add("ف")
        arrylast.Add("ق")
        arrylast.Add("ك")
        arrylast.Add("ل")
        arrylast.Add("م")
        arrylast.Add("ن")
        arrylast.Add("و")
        arrylast.Add("ى")
        Return arrylast.Item(liter.Next(2, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(1, 28)) & arrylast.Item(liter.Next(2, 28))
    End Function

ستجد الكثير من المواضيع لكن بالانكليزية: https://www.google.com/search?q=captcha+code+project+how+to&rlz=1C1GTPM_enUS490US490&sugexp=chrome,mod=9&sourceid=chrome&ie=UTF-8

السلام عليكم

يوجد موضوع لكنه غير مباشر وهو

صفحة اتصل بنا مع صورة لمحاربة السكام Captcha

والفكرة في الموضوع هي عمل ارقام او احرف عشوائية باية طريقة تريد وبعد ذلك تحويل هذه الارقام الى صورة وعرضها للمستخدم .

شكرا لكل من ساهم في الرد ، وجاري العمل على تجربة ما ذكر