Function Fileupload(ByVal sFile As String)
 
 Inet1.Cancel
 Inet1.AccessType = icUseDefault
 Inet1.Protocol = icFTP
 Inet1.RemoteHost = FtpServer
 Inet1.RemotePort = 21
 Inet1.UserName = FtpUsername
 Inet1.Password = FtpPasswort
 Inet1.RequestTimeout = 3
 
  DoEvents
 
 
 Inet1.Execute , "CD \.admin"
 
 Do While Inet1.StillExecuting = True
    DoEvents
 Loop
 
 Inet1.Execute , "binary"
 
 Do While Inet1.StillExecuting = True
    DoEvents                         'aus dieser Schleife geht er nicht mehr 
    ' weiter !!!
 Loop
 
 ftpcommand = "SEND " & "c:/temp.bmp" & " " & "/temp.bmp"
 Inet1.Execute , ftpcommand
 
 Do While Inet1.StillExecuting = True
    DoEvents
 Loop
 
 Inet1.Execute , "CLOSE"
End Function

VB RULEZ !