[عبد الله]

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

اشكرك أخي [b]Aly El-Haddad[/b] على تجاوبك معي ولكن ما أردت ولله الحمد وصلت له وهذا هو الحل لسؤالي بعد بحث :

كود :

Dim qa(80) As String    ' مصفوف برقم أكبر من الحاجة بقليل
Dim cc As Integer = 0   ' عدد عناصر المصفوفة

كود :

cc = 0


For q As Integer = 0 To Me.ListBox1.Items.Count - 1 ' تكون الحلقة بعدد العناصر في القائمة
If ListBox1.GetSelected(q) = True Then          ' اذا كان العنصر الأول محدد يطبق الشرط
qa(cc) = Me.ListBox1.SelectedValue.ToString ' تخزين القيمة المحددة في المصفوفة وهي أول قيمة محددة بالقائمة
ListBox1.SetSelected(q, False)              ' حتى اضمن عدم تكرار القيمة وضعت أمر إلغاء التحديد عن القيمة الأولى
cc = cc + 1                                 ' ومنها يتم زيادة العدد +1 لتخزين القيمة القادمة إن وجدت
End If
Next

وبذلك تم المطلوب وإن كانت هنالك حلول أخرى فياليت يتم طرحها إن وجدت.

وفق الله الجميع للخير.