أدراج حروف التكست في اللست

Dim i As Integer

For i = 1 To Len(Text1.Text)

List1.AddItem Mid(Text1.Text, i, 1)

Next

اخي كازابرا ماضبط الكود يوجد خطأ به وشكراً مقدماً

Dim i As Integer

For i = 1 To Len(Text1.Text)
List1.AddItem Mid(Text1.Text, i, 1)
Next

اخي محمد الكود صحيح 100 % لكن تأكد من اضافة اداة text و اداة list

أوكية شباب الله يعطيكم العافية ضبط.. تحياتي