VB6 Code - Download File Menggunakan IE

Di bawah ini merupakan procedure VB6 untuk mendownload sebuah file dengan memanfaatkan file bawaan IE (internet explorer) hdocvw.dll. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit

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

Public Sub DownloadFile(URL As String)
   Dim sDownload As String
   sDownload = StrConv(Text1.Text, vbUnicode)
   Call DoFileDownload(sDownload)
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Command1_Click()
    DownloadFile "http://google.co.id"
End Sub