OK cheers that got rid of that error.
Server:
Code:
Dim location As String
        location = "c:\desktop.bmp"
        Dim fNum As Integer
        Dim fLen As Integer
        fNum = FreeFile
        fLen = FileLen(location)
        Dim bytes() As Byte
        ReDim bytes(1 To fLen) As Byte
        Open location For Binary As fNum
        Get #fNum, 1, bytes
        Close fNum
        Winsock1.SendData (bytes)
Client:

Code:
Private Sub command3_click()
    
    Dim location As String
    Dim fNum As Integer
    location = "c:\desktop.bmp"
    fNum = FreeFile
    Dim bytes() As Byte
    Winsock1.GetData (bytes)
    Open location For Binary As fNum
    Get #fNum, 1, bytes
    Close fNum
End Sub
Please can you tell me what is wrong with this code. It sends a file but it is of 0 bytes and therefoer does not show anything.

Cheers