[Taha Okla]

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

تعلم البرمجة عن طريق التجريب مضيعة للوقت أكثر مما هو تعلم
ولكن التعلم عبر معلم سيختصر عليك الكثير من الوقت وسيكون إنتاجك أكبر وبشكل مختصر وتفكير منطقي أكثر،

هنا دورة لتعلم أساسيات VB.Net من أكاديمية حسونة أسلوب مميز وشرح مبسط


مدة الدورة تقريباً عشرين ساعة ولكن بعدها ستشعر بفرق كبير جداً 
ومعلومات لا بأس بها من حيث الكم والنوع 
وستكتسب أسلوب جديد للتفكير والتبسيط

والأهم أنها مجانية ولن تتكرر مرة أخرى فيما لو تم حذف القناة(لا قدر الله)
فأغتنم الفرصة من الآن..

---

---

أما حل مسألتك :

كود :

ListBox1.Items.Clear()

Dim X As String, str0 As String, str1 As String, len1 As Integer

For i = 1 To Len(TextBox3.Text)
   X = Mid(TextBox3.Text, i, 1)
   If X <> " " Then
       str0 = str0 + X
       str1 = str1 + " " + X
       len1 = len1 + 1
   End If
Next