Tutorial Membuat Simple Downloader :

1. Open VB6
2. Masukan Button 1 Command Button, 1 Label, 1 TextBox

Atur Propertinya Seperti Ini :

- TextBox : Text = Kosongkan aja
- CommandButton : Caption = Download
- Label : Caption =  Seterah ente

 3. Lalu View Code Dan Masukan Code Ini :

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As _
String, ByVal dwReserved As Long) As Long

Private Const S_FALSE = &H1
Private Const S_OK = &H0

Public Function IsGoodURL(ByVal sURL As String) As Boolean
sURL = StrConv(sURL, vbUnicode)
IsGoodURL = (IsValidURL(ByVal 0&, sURL, 0) = S_OK)
End Function


Private Sub Command1_Click()
If IsGoodURL(Text1.Text) Then
DoFileDownload StrConv(Text1.Text, vbUnicode)
Else
MsgBox "Url Tidak Terbaca"
End If
End Sub

Private Sub Form_Load()
MsgBox "Simple Downloader By : VBACTIONS " ' Ganti kata Simple Downloader By : VBACTIONS dengan sesuka anda
End Sub

4. Selesai ,,, Mudah Sekali Bukan :) Tekan F5 Untuk Menjalankan Program


*Note : Saya sarankan anda memakai VB Full Version jika anda belum punya bisa di download ( disini )
Untuk anda yang ingin menyimpan  program yang anda sudah buat caranya  :
1. Klik File pada tab atas
2. Klik Make Project1.exe...