器间程序假死，请问如何处理啊？
Try
Dim remoteEP As New IPEndPoint(Net.IPAddress.Parse(TextBox26.Text), TextBox27.Text)
cSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
cSocket.Connect(remoteEP)
Do
If cSocket.Connected = True Then
myThread = New Thread(AddressOf ReciveMsg)
myThread.Start()
tcpConnect = True
netstate = 1
Exit Do
End If
Loop Catch ex As Exception '显示错误类型
MDIParent1.ToolStripStatusLabel1.Text = ex.Message
Finally
'myThread.Abort()
netstate = 0
cSocket.Close()
End Try

程序经过测试，在别的机子上正常，只有在我机子上才会出现假死现象！