I have an aplication C/S with Winsock Control 6.0, this work fine in the
Intranet but don't working in the Internet

Client:
Option Explicit
Dim i, T1, T2, suma

Private Sub cmdConnect_Click()
    Winsock1.RemoteHost = Text2.Text '"localhost" 'IP
    Winsock1.RemotePort = 9999
    Winsock1.Connect
    i = 1
    suma = 0
End Sub

Private Sub cmdSend_Click()
Label2.Caption = Time
T1 = CDbl(Time)
    If Winsock1.State = sckConnected Then
        Winsock1.SendData "1235678901234567890"
    Else
        Label1.Caption = "No hay conexin"
    End If
End Sub

Private Sub Command1_Click()
     Label1.Caption = "Conexin Interumpida"
     Winsock1.Close
End Sub

Private Sub Winsock1_Connect()
    If Winsock1.State = sckConnected Then
        Label1.Caption = "Conexin con xito"
    End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim vtData As String
    Winsock1.GetData vtData, vbString
    If i < 10000 Then
        Winsock1.SendData (vtData)
        i = i + 1
        Label2.Caption = i
    Else: i = 10000
        T2 = CDbl(Time)
        Text1.Text = (((10 * (T2 - T1)) / 0.0001)) / i
    End If

End Sub

Server:
Option Explicit
Dim j

Private Sub Form_Load()
    Winsock1.LocalPort = 9999
    Winsock1.Listen
    Label3.Caption = "Esperando conexin..."
End Sub

Private Sub Winsock1_Close()
    Winsock1.Close
    Label3.Caption = "Estado: Desconectado"
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
    Label3.Caption = "Estado: Conectado"
        j = 1
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim vtData As String
    Winsock1.GetData vtData, vbString
    Winsock1.SendData vtData
    j = j + 1
    Label2.Caption = j
End Sub