Private Sub Command1_Click()
    'On Error Resume Next
 
    Inet1.AccessType = icUseDefault
    Inet1.Protocol = icFTP
    Inet1.RemotePort = 21
    Inet1.URL = "ftp.server.de"
    Inet1.UserName = "username"
    Inet1.Password = "pass"
 
    Label1.Caption = "Start"
 
    Inet1.Execute , "PUT C:\Programmierung\wt\1.gif /wt/test/5.gif"
 
    Do While Inet1.StillExecuting
       DoEvents
    Loop
 
    Label1.Caption = "Fin"
 
End Sub