Problema VB NET y sockets

[MigueCadiz]

Tengo este código maldito con dos formularios de un servidor y un cliente. Ayudadme por favor. Solo envía una sola vez desde el ultimo cliente que arranco.

Servidor:

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text.Encoding
Public Class Form2
Inherits System.Windows.Forms.Form

Structure cliente
Dim hilo As Thread
Dim osck As Socket
End Structure
Private osck As Socket
Private escuchadortcp As TcpListener
Private hiloconexion As Thread
Private ht As New Hashtable
Dim ocliente As cliente

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
escuchadortcp = New TcpListener(IPAddress.Any, 15000)
escuchadortcp.Start()
hiloconexion = New Thread(AddressOf Escucharconexiones)
hiloconexion.Start()

End Sub

Sub Escucharconexiones()

While True

osck = escuchadortcp.AcceptSocket
ocliente = New cliente
ocliente.osck = osck
ocliente.hilo = New Thread(AddressOf escucharclientes)
SyncLock ht
ht.Add(osck.RemoteEndPoint, ocliente)
End SyncLock
ocliente.hilo.Start()

End While


End Sub

Sub escucharclientes()

While True
Dim adatos(1000) As Byte
ocliente.osck.Receive(adatos, adatos.Length, SocketFlags.None)
TextBox1.AppendText(ASCII.GetString(adatos))
enviardatos(adatos)
End While

End Sub

Sub enviardatos(ByVal adatos() As Byte)
Dim oide As IDictionaryEnumerator
oide = ht.GetEnumerator
While oide.MoveNext
CType(oide.Value, cliente).osck.Send(adatos, adatos.Length, SocketFlags.None)
End While

End Sub

End Class

Cliente:

Imports System.io
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text.Encoding

Public Class Form3
Inherits System.Windows.Forms.Form

Private clientetcp As TcpClient
Private hiloescucha As Thread
Private flujodatos As Stream

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
clientetcp = New TcpClient("compaq", 15000)
hiloescucha = New Thread(AddressOf Escuchaservidor)
hiloescucha.Start()
End Sub

Sub Escuchaservidor()

While True
Dim adatos(500) As Byte
clientetcp.GetStream.Read(adatos, 0, adatos.Length)
TextBox1.AppendText(ASCII.GetString(adatos))
End While

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adatos() As Byte
adatos = ASCII.GetBytes(TextBox2.Text + ControlChars.NewLine)
clientetcp.GetStream.Write(adatos, 0, adatos.Length)

End Sub
End Class