Requires VB code for repeating process

[ravibos]

Hello Friends
Please help me I am new in developer field & try developing little software I have ( search from net)following code & want to continuous download file after 30 second without Download OK or Error in Download

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
 
Private Sub Command1_Click()
' Note that this file is 2M, so you might want to try with something simpler
Dim errcode As Long
Dim url As String
Dim localFileName As String
 
url = "http://mysite.com/data.csv"
localFileName = "c:\data.csv"
 
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
    MsgBox "Download ok"
Else
    MsgBox "Error while downloading"
End If
End Sub

Thanks In Advance