السلام عليكم لو سمحتوا هذا الكود صحيح ولمن اعمل تشغيل للبرنامج مابطلع خطا بس مابتظهر النتائج في listbox ممكن تجابوا ليش
Dim h, y As Integer
Dim n, z As String
Dim f(26) As Integer
Dim form1 As Form1
("n = Asc("form1.Label2.Text
For y = 1 To n.Length
( z = n.Substring(y - 1, 1
Next
Then (ا<= And (z ("ي"<= If (z
f(h) += 1
End If
If f(h) > 0 Then
h = Asc(z) - 64
For h = 1 To 28
(z = Chr(h + 64
()List2.Items.Clear
(( List2.Items.Add(z & " " & f(h
Next
End If
End Subوشكرا
* الرجاء استخدام اداة تنسيق الكود ليسهل قراءة الكود