Visual Basic - ¿Cómo reconectarse?

Estoy haciendo un programa que usa el control WinSock y quisiera como hacer para volver a usar el control una vez desconectado puesto que me dice que el puerto está abierto.

Se que es del puerto local pero no se como hacer para cambiarlo y volverme a reconectar.

He probado lo siguiente:
winsock1.close
winsock1.localport =winsock1.localport + 1 '<--- pero eso da error

Sabeis como hacerlo?

Tambien trato de hacer algo con WinSock pero mi problema es DESCONECTARME desde VB.

No prove tu problema pero esto tal vez ayuda:
---------------
Abrir el Acceso telefónico a Redes de Windows y ejecutar una conexión:

Crear un formulario y escribir el siguiente código:
Private Sub Form_Load()
Dim AbrirConexion As Long
AbrirConexion = Shell("rundll32.exe rnaui.dll,RnaDial " &
"ConexiónInternet", 1)
SendKeys "{ENTER}"
End Sub
----------