Private Sub Form_Load()
Winsock1.Listen

End Sub

Private Sub Text1_Change()

End Sub

Private Sub txtPuerto1_Change()
'If txtPuerto1.Text = "" Or Val(txtPuerto1.Text) <= 0 Or Val(txtPuerto1.Text) >= Val(txtPuerto2.Text) Then
'    txtPuerto1.Text = 1
'End If
End Sub

Private Sub txtPuerto2_v()
If txtPuerto2.Text = "" Or Val(txtPuerto2.Text) <= 0 Or Val(txtPuerto2.Text) <= Val(txtPuerto1.Text) Then
    txtPuerto2.Text = 6000
End If
End Sub

Private Sub Winsock1_Connect()
 txtPuertos.Text = txtPuertos & vbCrLf & varPuerto
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim dato As String
    Winsock1.GetData dato
    MsgBox dato
End Sub

Private Sub Winsock1_Error(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)
'MsgBox Description
End Sub