Dim x
Dim y
 
Me.Caption = lst_Nodes.ListCount
 
For y = 2 To lst_Nodes.ListCount
 
   ' If Not y = 0 Then
        x = wsNet.Count + 1
 
        Load wsNet(x)
 
        wsNet(x).LocalPort = "4455"
        wsNet(x).RemotePort = "5544"
        wsNet(x).RemoteHost = "127.0.0.1" 'lst_Nodes.List(y)
 
        wsNet(x).Connect
 
        y = y - 1
 
    'End If
Next