[baha]

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


يمكنك وضع الحروف في مصفوفة والتعامل مع index المصفوفة كما في الكود التالي:

كود :

Dim Array() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "M", "N", "O" & _
           "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
       For i As Integer = 0 To Array.Length - 1
           TextBox1.Text = Array(i)
       Next

أو

كود :

For i As Integer = 65 To 65 + 25
           TextBox1.Text = ChrW(i)
       Next

تمنياتي لك وللجميع التوفيق