Dim wtf As Integer

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("IP Address Feild is null")
Else
For wtf = 1 To 200
Load Winsock1(wtf)
Call Winsock1(wtf).Connect(Text1.Text, wtf)
Next wtf
End If
End Sub
Private Sub Winsock1_Connect(Index As Integer)
List1.AddItem "port " & Winsock1(Index).RemotePort & " is open!"
Unload Winsock1(Index)
End Sub
Private Sub Winsock1_Error(Index As Integer, ByVal Number As 
Integer, Description As String, ByVal Scode As Long, ByVal Source As 
String, ByVal HelpFile As String, ByVal HelpContext As Long, 
CancelDisplay As Boolean)
Unload Winsock1(Index)
End Sub
Private Sub Form_Load()
wtf = 1
End Sub