Private Sub Timer1_Timer()

For i = 0 To intmax

If tcpServer(i).State <> 7 And tcpServer(i).State <> 6 Then

Debug.Print tcpServer(i).State

GoTo n

Else
tcpServer(i).Close

tcpServer(i).Listen

End If

n:

Next i

End Sub

Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
 
   If index = 0 Then

      intmax = intmax + 1

      Load tcpServer(intmax)

      tcpServer(intmax).LocalPort = 666

      tcpServer(intmax).Accept requestID

      List1.AddItem tcpServer(intmax).RemoteHostIP '' añade las ips a 1 listbox

      End If

End Sub

Private Sub Timer1_Timer()

For i = 0 To intmax

If tcpServer(i).State <> 7 And tcpServer(i).State <> 6 Then

Debug.Print tcpServer(i).State

GoTo n

Else
tcpServer(i).Close

tcpServer(i).Listen

End If

n:

Next i

End Sub

Private Sub Command1_Click()
Dim x() As Form1    ' Declaro la variable x como formulario o lo que quiera
Dim z As Integer    ' declaro la variable z como numero entero

ReDim Preserve x(7)     ' limite de la matriz
For z = 1 To 7          ' nº de ventanas a crear
Set x(z) = New Form1
x(z).Show
Next z
End Sub