Dim Pos As Long
Dim Segment As Long
Dim SegmentCount As Long
Dim LenRest As Long
Dim SendFileComplete As Boolean
Dim FreeF As Integer
Const Buffer = 4096
Dim SendingFile As Boolean
Dim FileData() As Byte

Private Sub SendFile(ByVal FileName As String)
Dim LenFile As Long
Dim TotInteger As Long

LenFile = FileLen(FileName)
SegmentCount = Val(LenFile / Buffer)
TotInteger = SegmentCount * Buffer
LenRest = LenFile - TotInteger
Segment = 0
Pos = 1

ReDim FileData(Buffer - 1)
SendingFile = True
SendFileComplete = False
Open FileName For Binary Access Read As #FreeF

call SendNextSegment

End Sub

Private Sub objWinSock_SendComplete()
If SendingFile Then SendNextSegment
End Sub


Private Function SendNextSegment()

If objWinSock.State = 7 Then
    If SendFileComplete Then
        SendingFile = False
        Call CloseConection 'funcion que cierra la conexion o termino el envio del archivo
        Exit Function
    End If
     
    If Segment = SegmentCount Then
            If LenRest > 0 Then
                ReDim FileData(LenRest - 1)
                Get FreeF, Pos, FileData
                Close #FreeF
                SendFileComplete = True
                If objWinSock.State = 7 Then objWinSock.SendData FileData
    
            End If
        Else
            Get #FreeF, Pos, FileData
            If objWinSock.State = 7 Then objWinSock.SendData FileData
            Pos = Pos + Buffer
        End If
    
    Segment = Segment + 1
End If
End Function

SendMessage Me.hWnd, &HA1, 2, 0&

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

Winsock1.SendData "Nombre" & DELIMITER & "Leandro"
Winsock1.SendData "Apellido" & DELIMITER & "Ascierto"

Nombre|LeandroApellido|Ascierto

Winsock1.SendData "Nombre" & DELIMITER & "Leandro"
DoEvents
Winsock1.SendData "Apellido" & DELIMITER & "Ascierto"