FTP picture uploading problems!

http://disasterexpertsinc.com/jobs/P...obpics001.html
at that link you can see a few pictures i am uploading from visual basic. here is my code..

Code:

---

Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
      ByVal lpszRemoteFile As String, _
      ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
 
'Put files on the ftp***************************************
        If (FtpPutFile(hConnection, main_path & "\temp\" & folder_names(x) & "\" & picture_names(add), picture_names(add), _
        dwType, 0) = False) Then
            'ErrorOut Err.LastDllError, "FtpPutFile"
            Exit Sub
        Else
       
        End If
'***********************************************************

---

so it obviously is putting the picture there. why is it ending up distorted?
the file size of the pic is 900mb, and 904 (on disk) the ftp uploaded one is 899mb

PLEASE HELP

EDIT: PICS DONT SHOW UP AT ALL IN GOOGLE CHROME, AND ONE PIC I PUT MANUALLY THE CORRECT PICTURE TO MAKE SURE THE UPLOADING WAS THE ONLY PROBLEM

make sure ftp mode is set to binary