Pues es un simple ejemplo para crear un downloader usando el ultimo modulo de CallAPI que he sacado:

---

'---------------------------------------------------------------------------------------
' Module    : mDownloader
' Author    : Karcrack
' Date      : 09/04/2010
' Purpose   : Sample of usage kInvoke.bas
'---------------------------------------------------------------------------------------

Option Explicit
 
Private Const sURL      As String = "http://i26.tinypic.com/2vc9pog.png"
Private Const sPath     As String = "C:\TEST.PNG"
 
Sub Main()
    Dim lpCode()        As Byte
                        ' v=="URLDownloadToFileW"
    If Invoke("URLMON", &H702F1A4C, 0, StrPtr(sURL), StrPtr(sPath), 0, 0) = 0 Then
        lpCode = StrConv("CMD /D /C " & Chr$(34) & sPath & Chr$(34), vbFromUnicode)
        Call Invoke("KERNEL32", &HE8AFE98, VarPtr(lpCode(0)), 0)
    End If                      ' ^=="WinExec"
End Sub

Necesitareis añadir el fichero kInvoke.bas al proyecto, que esta en el enlace de más arriba

  Buen code aunque ya los Dowloader Fuds estan en vias de extincion