[عبدالله الدوسري]

السلام عليكم الاستاذ الدوسري
البرنامج وضع خطا أحمر تحت هذه العبارة     WsNetwork.SetDefaultPrinter(strCurrPrinter) و كتب option strict reject any late binding 
علما أنني أختار الخاصية ON في الخيار OPTION STRICT
ما هو الحل ؟

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


الـ OPTION STRICT إذا كان ON :
يعني أنت مانع الربط المتأخر ، بمعنى أن يجب أن يتم تعريف كل شي، وممنوع إستخدام وظيفة في كائن Object






أضف مرجع COM للمكتة التالية :
ابحث  في القسم COM  عن ( Windows Script Host Object Model ) 
قم بإضافتها.



احذف السطر :

كود :

Dim WsNetwork = Microsoft.VisualBasic.CreateObject("WScript.Network")

إستبدلة بـ:

كود :

Dim WsNetwork As New IWshRuntimeLibrary.WshNetwork