Private Sub Command1_Click()
Dim byteData() As Byte
Dim intFile As Integer
Dim urlDownload As String

urlDownload = "http://travmap.shishnet.org/map.php?lang=en&server=s7.travian.it&alliance=id%3 A1527&groupby=player&casen=on&format=png&"
intFile = FreeFile()

byteData() = Inet .OpenURL(urlDownload, icByteArray) 'al posto di Inet il nome dell'oggetto

Open App.Path & "\" For Binary Access Write As #intFile
Put #intFile, , byteData()
Close #intFile
End Sub