vb.net通信中出现“远程主机强迫关闭了一个现有的连接”解决思路

vb.net通信中出现“远程主机强迫关闭了一个现有的连接”
有一个与终端无线模块实时通信的软件，在我电脑上运行时在会出现上述问题（运行多长时间没有规律），在另一台电脑上就没出现上述问题，问题都在socket发送时

[解决办法]

VB.NET code

Private Sub SendData(ByVal data() As Byte, ByVal hostip As IPAddress, ByVal port As Integer)        Dim sk As Socket        Dim ipep As New IPEndPoint(hostip, port)                sk = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)        Try            sk.Connect(ipep)            If sk.Connected Then                sk.Send(data)            End If        Catch ex As SocketException            msgbox(ex.Message)        Finally            sk.Shutdown(SocketShutdown.Both)            sk.Close()        End Try    End Sub