كيف أتأكد من أن المنفذ مفتوح في جهاز العميل

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

عندي برنامج عميل وخادم

أريد ان أتأكد من المنفذ قبل ان اتصل به وليس بعد الأتصال

هذا الكود العادي الذي استخدمه في الأتصال

Try
  client = New TcpClient("127.0.01", 1000)
   MsgBox("تم الاتصال بنجاح")
Catch
   MsgBox("الخادم غير متوفر الآن")
End Try

ولكن أنا اريد ان اعرف هل المنفذ 1000 مفتوح او لا قبل إجراء الأتصال وليس بعد إجراء الأتصال

وشكرا