程序需求如下：
程序定时自动下载远程服务器上的数据包，如果数据包未到，每隔5分钟到服务器取一次数据。但在执行中发现INET控件在同一次执行中只有第一次可以下载，如果因数据包未到，每隔5分钟取包时重新执行本程序，但不管包到了没有，都认为是未到。我想是不是某个属性或方法用错了?以下是程序片断：

With Inet2
.RemoteHost = Trim(txt_ip.Text)
.RemotePort = Trim(txt_port.Text)
.UserName = "u0000"
.Password = "u0000"
.Protocol = icFTP
sb1.Panels(1).Text = "重新连接主机，下载公共数据......."

End With

' On Error GoTo err_mark:

varStr = "get " & TARName3 & " " & App.path & "\data\" & TARName3

'Debug.Print varStr
Inet2.Execute , varStr
sb1.Panels(1).Text = "正在下载" & TARName3 & "......."
' pb1.Visible = True
pb1.Value = 0
Do While Inet2.StillExecuting
DoEvents

If pb1.Value < pb1.Max Then
pb1.Value = pb1.Value + 1
Else
pb1.Value = 0
End If

Loop

sb1.Panels(1).Text = ""

... ...

If f1.FileExists(App.path & "\data\" & TARName3) = False Then
XZ_BZ = XZ_BZ & "G包未下载"
sb1.Panels(1).Text = XZ_BZ
'timerXz为定时器控件,如数据包未到,每隔5分钟重新调用本程序.
timerXz.SetEnable True
Exit Sub
End If