Public Class Form1
Dim intSlave As Integer
Dim MySocketArray As New ArrayList
Dim mySlaveControl As AxMSWinsockLib.AxWinsock
Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Master.LocalPort = "456"
Master.Listen()
intSlave = 0
End Sub
Private Sub Master_ConnectionRequest1(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Master.ConnectionRequest
mySlaveControl = New AxMSWinsockLib.AxWinsock
MySocketArray.Add(mySlaveControl)
mySlaveControl.Accept(e.requestID)
Master.Close()
Master.Listen()
End Sub
Private Sub Slave_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Slave_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles mySlaveControl.DataArrival
'I WROTE THIS SUB, AND PUT IN Handles mySlaveControl.DataArrival but it gives an error
End Sub
End Class