Still - Internet control upload problems

I've attached my project, can someone that has done a simple type FTP program before please help me out? I'm using internet transfer controls. I looked at winsock and it wasn't working either (atleast for me). There are tons of simple FTP programs on the web, but I dont wan't them. This is for a software eng. project and If i can't do it, then I'm kinda cheating and I'd rather learn how to do it correctly, but I'm having trouble. here is the code if you dont wish to d/l the project i made. thanks, please help me ASAP =(.


Public File

Private Sub Connect_Click()
Select Case selection.ListIndex
Case 0 'connecting to remote host such as ernie.eecs.uic.edu
With Inet1
.Cancel
.Protocol = icFTP
.RemoteHost = destination.Text
.RemotePort = "21"
.UserName = user.Text
.password = password.Text
End With
Case 1 'connecting to an ftp:// site
With Inet1
.Cancel
.Protocol = icFTP
.URL = destination.Text
.UserName = user.Text
.password = password.Text
End With
End Select
End Sub


Private Sub DirList_Change()
FileList.Path = DirList.Path
End Sub

Private Sub DrvList_Change()
DirList.Path = DrvList.Drive
End Sub



Private Sub FileList_Click()
File = FileList.Path & "\" & FileList.FileName
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icError
status.Caption = "Error"
Case icResponseCompleted
status.Caption = "Complete"
Case icConnected
status.Caption = "Connection Made"
Case icConnecting
status.Caption = "Connecting"
Case icDisconnected
status.Caption = "Disconnected"
Case icDisconnecting
status.Caption = "Disconnecting"
Case icHostResolved
status.Caption = "Remote address accepted"
Case icNone
status.Caption = "Waiting"
Case icReceivingResponse
status.Caption = "Response being received"
Case icRequesting
status.Caption = "Data is being requested"
Case icRequestSent
status.Caption = "A data request has been sent"
Case icResolvingHost
status.Caption = "Checking remote address"
Case icResponseReceived
status.Caption = "A response has been received"
Case icBadUrl
status.Caption = "Bad URL Given"
Case icCannotConnect
status.Caption = "Can not connect to Host"
Case icConnectFailed
status.Caption = "Connection Failed"
Case icConnectionAborted
status.Caption = "Connection Aborted"
Case icNoRemoteHost
status.Caption = "No Remote Host"

End Select
End Sub


Private Sub Form_Load()

End Sub

Private Sub Send_Click()
Inet1.Execute , "PUT " & File & " " & File
End Sub