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