Sub atualizanaoenviadas
CallSub(ImageDownloader, "ClearCache")
Dim links As Map
links.Initialize
links.Clear
links.Put(imgperfil, kv.GetSimple("imgsocial"))
links.Put(imgn1, "http://10.10.10.10/clickfight/UsersImages/"&userid&"/MeuPerfil/NaoEnviadas/Miniaturas/"&"0.jpg")
links.Put(imgn2, "http://10.10.10.10/clickfight/UsersImages/"&userid&"/MeuPerfil/NaoEnviadas/Miniaturas/"&"1.jpg")
links.Put(imgn3, "http://10.10.10.10/clickfight/UsersImages/"&userid&"/MeuPerfil/NaoEnviadas/Miniaturas/"&"2.jpg")
links.Put(imgn4, "http://10.10.10.10/clickfight/UsersImages/"&userid&"/MeuPerfil/NaoEnviadas/Miniaturas/"&"3.jpg")
CallSubDelayed2(ImageDownloader, "Download", links)
End Sub