Especificar tiempo de espera de intento de conexió mediante Sockets

[lne]

Hola a todos, necesito especificar el tiempo de espera de conexión a un destino determinado (Socket Servidor o Cliente).
Tengo varios dispositivos a conectar, y en caso que al momento de conectarlos se produzca un error por x motivo (por ejemplo que le aya asignado una Ip o puerto incorrecto) intentara conectarse durante un período de tiempo. El problema es que ese periodo de tiempo es muy largo y necesito reducirlo.

Mi código del método de conexión de la Clase Socket Cliente es:

'Procedimiento para realizar la conexión con el servidor
Public Sub Conectar(ByVal IPServidor As String, ByVal PuertoServidor As String)
Try
Me.setIpServidor(IPServidor)
Me.setPuertoServidor(PuertoServidor)

Dim unClienteTCP As New TcpClient
Me.setClienteTCP(unClienteTCP)

'Conectar con el servidor
Me.clienteTCP.Connect(Me.getIpServidor(), Me.getPuertoServidor())

Me.setMensajesEnviarRecibir(clienteTCP.GetStream() )

'Crear hilo para establecer escucha de posibles mensajes enviados por el servidor al cliente
Dim unHiloMensajeServidor As New Thread(AddressOf LeerSocket)

Me.setHiloMensajeServidor(unHiloMensajeServidor)
Me.hiloMensajeServidor.Start()
Catch ex As SocketException
Throw New Exception("No se ha podido establecer conexión")
Catch ex2 As Exception
Throw New Exception("Ha ocurrido un error al conectarse")
End Try
End Sub

Sería de mucha ayuda sus aportes, muchas gracias..