SOCKET连接超时问题

[sam10000]

请教各位：
我电脑做了一个TCP 客户端，连接几台设备，采取断开一个连接，再启动另一连接，来读写数据，有时一个设备会断网，
它的连接时间会有十几秒，这个时间能不能设置，就是使得很快进入下一台设备的访问。
Label13.Text = "正在连接..."

Socket1 = Nothing
Socket1 = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
While True
Try
Socket1.Connect(localEndPoint(i))
GoTo Connected
Catch ex As Exception
MsgBox("ERROR")
End Try
End While

Connected:

ReDim DataBytesRec1(Socket1.ReceiveBufferSize)
ThreadSocketRec1 = New Thread(AddressOf SocketReciveData1)
ThreadSocketRec1.IsBackground = True
ThreadSocketRec1.Start(Socket1)

[threenewbee]

https://blog.csdn.net/kucoffee12/article/details/86308178

[sam10000]

但是，超过时间后，我会再次发起连接，这时会弹出”同一个套接字上正在进行另一个异步操作时，不能调用 BeginConnect。"就是我发现这个设备连不上，我就会再连其他设备，就出现报警了。就是说beginConnect能不能强制结束。好让发起下一个连接。