HTTP upload

Jeg har et problem med et program som skal uploade et billede til et PHP-script...

Den indlæser fint billedet, laver forbindelse til serveren, men når den så skal sende billedet går der et eller andet galt...

Den sender ikke det hele...Et billede der fylder ca. 240000 bytes på disken bliver der kun sendt ca. de første 5000 bytes af...

Hvad er det der gør at resten ikke kommer med??

Public Sub Inet_Upload(ByVal strFile As String, ByVal uname As String)
Dim intFree As Integer

Dim strUrl As String, _
    strServerIp As String, _
    strServerPort As String, _
    strServerPage As String, _
    strData As String, _
    strHeaders As String, _
    strBoundary As String, _
    strCommand As String, _
    strSend As String

  strServerIp = "localhost"
  strServerPort = "80"
  strServerPage = "upload.php"

  intFree = FreeFile()
  Open strFile For Binary Access Read Lock Read Write As intFree
    strData = Space(LOF(intFree))
    Get #intFree, , strData
  Close intFree

  strBoundary = "---------------------------" & LCase(RndBoundary)
 
  strCommand = strBoundary & vbCrLf & "Content-Disposition: form-data; name=""ufil""; filename=""" & strFile & """" & vbCrLf & _
                                      "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & strData & vbCrLf & strBoundary & "--" & vbCrLf & vbCrLf

  strHeaders = "POST /" & strServerPage & "?uname=" & frmMain.UserName & " HTTP/1.1" & vbCrLf & _
              "Content-Type: multipart/form-data; boundary=" & strBoundary & vbCrLf & _
              "Host: " & strServerIp & vbCrLf & _
              "Accept: */*" & vbCrLf & _
              "Content-Length: " & CStr(Len(strCommand)) & vbCrLf & _
              "Connection: close" & vbCrLf & vbCrLf

  Sendbytes = 0
'  arrByte = StrConv((strHeaders & strCommand), vbFromUnicode)
 
  strSend = strHeaders & strCommand

  With frmMain.Inet1
      If .State <> 0 Then
      .Close
      End If
      .LocalPort = 0
      .RemotePort = strServerPort
      .RemoteHost = strServerIp
      .Connect
      While .State <> 7
      DoEvents
      Wend
      .SendData strSend
  End With
End Sub