Dim bData() As Byte
Dim intFile As Integer
Dim icByteArray
ImeFajla=App.Path & "temp.tmp"
bData() = Inet1.OpenURL(strURL, icByteArray)
Open ImeFajla For Binary Access Write As #BrFajla
     Put #BrFajla, , bData
Close #BrFajla