[silverlight]

حاول تستخدم الكود التالي
لكن لتضع ف اعتبارك الكود بهذا الشكل سوف يجعل البورت مفتوحا الي مالا نهاية و قد تحتاج الي اغلاق الكمبيوتر او اغلاق البرنامج من
Task Manager

PHP كود :

       Dim source As New System.Threading.CancellationTokenSource()
        Dim token As System.Threading.CancellationToken = source.Token
        Dim t = New Task(Sub()
                             While True
                                 If token.IsCancellationRequested Then
                                     Return
                                 End If

                                 ' اكتب الكود اللازم لفتح البورت هنا

                             End While

                         End Sub, token)

        t.RunSynchronously()