help (UNLOADING SOCKETS)

Private Sub Command3_Click()
Dim lngI As Integer
Dim strSplit() As String
For lngI = 0 To List1.ListCount - 1
'Label1.Caption = List1.ListCount
If lngI > 0 Then
Unload ws(lngI)
'Unload Socket(Index)
End If
Next lngI
End Sub



loading


Dim lngI As Long
Dim strSplit() As String
For lngI = 0 To List1.ListCount - 1
Label1.Caption = List1.ListCount
If lngI > 0 Then
Load ws(lngI)

End If
strSplit = Split(List1.List(lngI), ":")
ws(lngI).LocalPort = 0
ws(lngI).RemotePort = CLng(strSplit(1))
ws(lngI).RemoteHost = strSplit(0)
ws(lngI).Connect
Next lngI