Dim i As Integer 
      Dim soket() As AxMSWinsockLib.AxWinsock 
      Dim b As String 
   
   
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          i = 1 
          ReDim soket(i) 
          soket(i) = New AxMSWinsockLib.AxWinsock 
   
   
          With soket(i) 
   
              .Name = i 
          End With 
          Me.Controls.Add(soket(i)) 
          soket(i).AccessibleRole = Windows.Forms.AccessibleRole.Default 
          soket(i).CausesValidation = True 
          soket(i).Dock = DockStyle.None 
          soket(i).Visible = True 
          soket(i).Protocol = 0 
          soket(i).LocalPort = "8204" 
          soket(i).RemotePort = "8204" 
          soket(i).Listen() 
          AddHandler soket(i).ConnectionRequest, AddressOf Me.tikla 
   
   
      End Sub 
   
   
   
      Private Sub tikla(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) 
   
   
          b = i + 1 
              If soket(i).CtlState <> MSWinsockLib.StateConstants.sckConnected Then 
                  soket(i).Close() 
              End If 
          soket(i).Accept(e.requestID) 
          ListBox1.Items.Add(e.requestID) 
          AddHandler soket(i).DataArrival, AddressOf Me.tikla2 
          ReDim soket(b) 
          soket(b) = New AxMSWinsockLib.AxWinsock 
   
   
          With soket(b) 
              .AccessibleRole = Windows.Forms.AccessibleRole.Default 
   
              
              .Name = b 
          End With 
          Me.Controls.Add(soket(b)) 
          soket(b).Protocol = 0 
          soket(b).LocalPort = 8204 
          soket(b).RemotePort = 8204 
          soket(b).CausesValidation = True 
          soket(b).Dock = DockStyle.None 
          soket(b).Visible = True 
        
          soket(b).Listen() 
          AddHandler soket(b).ConnectionRequest, AddressOf Me.tikla 
   
   
          i = i + 1 
         
      End Sub 
      
   
   
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        
      End Sub 
   
      
   
      Private Sub tikla2(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) 
   
          Dim gelenver1i As String 
   
          Dim btn As AxMSWinsockLib.AxWinsock 
          btn = CType(sender, AxMSWinsockLib.AxWinsock) 
          soket(btn.name).GetData(gelenver1i) [SIZE="5"][B][COLOR="Red"]' Hata burda[/COLOR][/B][/SIZE] 
   
          
   
   
      End Sub 
   
      
   
      End Sub