التعامل مع تعدد القيم فى list Control

السلام عليكم

لدي طريقة بسيطة لعمل ذلك وهي انا تقوم بتخزين فهارس العناصر المحدد في حقل واحد طبعا ولكن يفصل بين هذه الفهارس فاصلة

مثلا : لو اختار المستخدم من القائمة العنصر الاول والثالث والخامس

سو تقوم بعمل فحص علي كافة العناصر وتاخذ فقط فهارس العناصر المحدد ة

وتخزنها بهذا الشكل : 1;3;5

وعند قراءة السجل تقوم بتحليل البيانات و تحديد العناصر الموجودة في القائمة .

ارجو ا ان تكون الفكرة قد وصلت

اذا واجهتك صعوبة اخبرني وسوف ادرج مثالا هنا

تحياتي لك

هذا كود سريع

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
    If List1.Selected(i) = True Then
        MsgBox List1.List(i) & " is selected"
    End If
Next i
End Sub

Private Sub Form_Load()
List1.AddItem "hi"
List1.AddItem "Hello"
End Sub