WinSock u VB 6.0?!?

Ovako, imam jedan mali problem... Napravio sam programcic za setanje po LANu pomocu winsocka. Znaci, postoji Client i Server (Predajnik i Prijemnik), sad stvar je u tome sto se ja super konektujem i program odlicno radi, problem je kada se diskonektujem preko Clienta, i kad pokusam ponovo da se konektujem... nece )
Ajde molim vas ako neko zna u cemu je stvar neka mi pomogne, bicu veoma zahvalan, hvala...
________________________
Pokusao sam da stavim sub winsock_error i unutra stavio komande za zatvaranje servera i ponovno njegovo otvaranje (winsock.close; winsock.listen) ali nece...
_________________________

treba mi bar deo source coda da bih ti neshto rekao.mozda vec imam taj program pishi mi pa cemo videti.

sm2495@gmail.com

nek ti kod servera ta kontrola ima indekse
napravi brojac
pa za uspostavu svake konekcije nek se taj brojac uvecava za 1

Dim intMax1 As Integer
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error GoTo greska
If Index = 0 Then
intMax1 = intMax1 + 1
Load Me.Winsock1(intMax1)
If Winsock1(intMax1).State <> sckClosed Then Winsock1(intMax1).Close
Me.Winsock1(intMax1).Accept requestID
End If
Exit Sub
greska:
End Sub

kako je sad stanje
ako ne radi ipak napisi deo koda

recimo da sam napravio bolji program u visual basicu...........
ako si zainteresovan pisi........pporuke