Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long


Private Sub Command1_Click()
Dim fToDownload As String
fToDownload = StrConv("http://www.pellesoft.nu/bilder/logotypes/pellesoft.gif", vbUnicode)
Call DoFileDownload(fToDownload)
End Sub