Creating a new instance of an object if it doesnt exist(kinda a hack)

[|2eM!x]

Okay, this is for using in something like a winsock array(it will limit the max winsocks to 300, more than enough):

Private Sub Query()
On Error GoTo errhandler
Dim I as long, MyCount as long
For i = 0 To UBound(Servers)
Doevents
MyCount = MyCount + 1
If MyCount >= 300 Then MyCount = 0
If i > 0 And MyCount < 300 Then
If Winsock1(MyCount - 1).Tag <> "" Then
Load Winsock1(MyCount - 1)
End If
End If
With winsock(MyCount - 1)
.RemoteHost = Server.ip
.RemotePort = Server.port
.SendData "MESSAGE"
End with
Next i
Exit Sub
errhndler:
If Err.Number = 340 Then
Resume Next
End If
:wave: