[RESOLVED] winsock error handler

[drivenbywhat]

I have the following code. It's a simple client/server chat. Can someone please tell me what errors to look for when using winsock and how to handle/avoid them. I know if I press the button to LISTEN or CONNECT when it's doing that stuff already, the program errors out.

Option Explicit
 
Private Sub cmdconnect_Click()
 
Winsock.RemoteHost = txtIp.Text  ' this is the Ip of the server 127.0.0.1 loops back to your own computer
Winsock.RemotePort = 15151  ' this is the port it must be the same as the server
Winsock.Connect  ' connect!
 
End Sub
 
Private Sub cmdListen_Click()
 
Winsock.LocalPort = 15151 'open the port on the local machine try to use ports between 3000 and 50000
Winsock.Listen ' start listening, simple!
 
End Sub
 
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
 
Winsock.Close 'this resets our socket ready to accept the incoming connection
Winsock.Accept requestID 'accept the connection!
 
End Sub
 
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
 
Dim incommingData As String 'this stores the data we receive
 
Winsock.GetData incommingData ' this stores the data in the variable we set above
 
' now we will display it in the textbox
 
txtChat.Text = txtChat.Text & vbCrLf & incommingData
 
End Sub
 
Private Sub cmdSend_click()
 
Winsock.SendData txtMessage.Text ' sends the data in the textbox
txtChat.Text = txtChat.Text & vbCrLf & txtMessage.Text
 
End Sub