Winsock help please?

Hi there , i would need some help , i am in trouble with winsock 6.0 in visual basic 2008 express , i wrote simple chat progam , i made it like so , ill post few parts of code:

Server side:

Starts listening :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWinsock1.Close()
AxWinsock1.LocalPort = TextBox1.Text
AxWinsock1.Listen()

End Sub

Connection request:
Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionR equestEvent) Handles AxWinsock1.ConnectionRequest
TextBox6.Text = TextBox6.Text + AxWinsock1.RemoteHostIP + " Is Connecting"
Dim x As Integer

AxWinsock1.Accept(x)


End Sub
And here is probably the error also , i can see that if i try to connect to my server , it launches the line to textbox , that i'm trying to connect , but the winsock doesn't accept the connection :S , in vb6 i would write like: winsock1.accept requestID . and it works , but in vb 2008 it wants the requestID as integer, and i could not get the connection working :S , i need some help. and also , how can i check my connection request id? some help please? i will be waiting. if someone is interrested with helping me , you could also add me to msn , lauriadi@hotmail.com , thank you very much

-OrX|=-