Problem sa Downlodom (silent download)

Code:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ 
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    DownloadFile "http://vrky.atw.hu/Bravo.exe", "C:\Bravo.exe"
DoEvents
End Sub

Code:

Command1_click()
Inet1.Execute URL_Adresa.Text, "GET"
end sub

Private Sub Inet1_StateChanged( ByVal State As Integer)
select case state

 case icResponseCompleted
  Dim data() as byte
      Open MyFile$ For Binary Access Write As #3
      Data() = Inet1.GetChunk(1024, icByteArray)
      Do While UBound(vtData) <> -1
         Put #3, , Data
         Data() = Inet1.GetChunk(1024, icByteArray)
         DoEvents
      Loop
retval = MsgBox("Skidanje fajla zavrseno!", vbInformation, "Download zavrsen!")
      Close #3
end select
end sub

Code:

Dim b() As Byte
Dim sURL As String
URL = "http://www.nekisajt.com/blabla.exe"
b() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\blabla.exe" For Binary Access Write As #1
Put #1, , b()
Close #1

Code:

Inet1.Execute URL_Adresa, "GET"

Code:

Inet1.Execute URL_Adresa.TEXT, "GET"