[YazanOtoum]

كود :

Dim capDevices As DsDevice() = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)
       Dim dvcList As New List(Of String)
       For Each cd As DsDevice In capDevices
           MsgBox(cd.Name)
       Next

تم الحل بحمد الله بعد البحث الكثير وجدت لدي مثال قد قمت بتحميله السنة الماضية في المنتدى عن الكام وقد وجدت فيه الحل مع ان الحل لم يكن ظاهرا مباشرة الا بعد تحليل الكود وبفضل الله قبل كل شيء 

تركت الكود ليستفيد باقي الاعضاء 

شكرا لكم