[ghias]

[quote pid='152829' dateline='1575269049']

كود :

For i = 0 To ListBox1.SelectedIndices.Count - 1
   Dim GUID = ListBox1.SelectedItems(i)("GUID")
   Dim NAME = ListBox1.SelectedItems(i)("NAME")
   MsgBox(GUID & ": " & NAME)
Next

[/quote]

مشكور أخي العزيز لكن بواسطة هذا الكود يمكن اظهار Name  فقط بينما الـ GUID لايمكن اظهاره فهو يعطي رسالة خطأ بعدم القدرة على تحويل الـGUID إلى تنسيق string  

ولك مني كل الشكر