[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
عملت برنامج يقوم بعملية مسح ضوئي للمستندات وهو يعمل بشكل سليم ولكن المشكلة تظهر في حالة عدم وجود اتصال الماسح الضوئي يعني لو بالخطأ تم الضغط على ايقونة المسح الضوئي فإن البرنامج يهنج  سؤالي عن كود يبحث عن الماسحات الضوئية وفي حالة عدم اتصالها جميعها  يتم الخروج من sub  
جربت sub التالي ولكنه يبحث عن أول ماسح متوفر فقط وفي حالة عدم وجوده يعمل مشكلة التهنيج
اسف على الإطالة 

 Public Sub CheckScanner()

     Dim wiaManager As New WIA.CommonDialog

        ' Disable the scanner selection dialog

        wiaManager.SuppressScannerUI = True

        ' Try to get the first available scanner

        Dim scanner As WIA.Device

        Try

            scanner = wiaManager.Devices(1)

        Catch ex As Exception

            ' No scanner found

            MsgBox("لا يوجد ماسح ضوئي متصل بالجهاز.", MsgBoxStyle.Exclamation, "تنبيه")

            Exit Sub

        End Try

        If scanner.IsConnected Then

            MsgBox("الماسح الضوئي غير متصل.", MsgBoxStyle.Exclamation, "تنبيه")

            Exit Sub

        End If

end sub

[صالح عبدالله]

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

أشكر لكم مروركم 
تم حل المشكلة بإستخدام الكود التالي

   Dim scanner As WIA.Device = Nothing

        If Device Is Nothing Then

            MsgBox("لايوجد سكانر")

            Exit Sub

        End If