[أبو خالد الشكري]

بعد إذن الأستاذ سعود
أحب أن أشارككما في الموضوع
أنا أعتقد بأن الكود خاطئ
والصواب هو الكود التالي ، والله أعلم

كود :

   Dim X = CMbPORTSCAN

       If X.Items.Count = 0 Then
           SerialPort1.Close()
       End If

[size]
.[/size]