Sub Timer_Tick
Timer.Enabled = False
Try
dbxFiles.delete(FileWeb)
'wait for dbxFiles_Delete(sucess As Boolean, path As String,error As String)
'code correct:
waitfor dbxFiles_Delete(success As Boolean, msg As Object ,error AsString)
Dim I As FileMetadata
i = msg
'Msgbox ("Borrado " & FileWeb ,"Borrado")
' Msgbox("Borrado","Borrado")
Catch
Log(LastException)
End Try
End Sub