从网上看到的这个升级程序，不知道要怎么改成网络上下载升级程序

 下面只是一小部份代码，
DoEvents
  If State Then     ' 获取旧主程序名称     OldExeFile = CStr(ReadIniFile(UpdateIniPath, "Main", "Name", "主程序"))     NewExeFile = OldExeFile     OldExeFile = App.Path & "\" & OldExeFile & ".exe"     tmpFile = App.Path & "\tmp.tmp"          ' 改写升级次数     i = CInt(ReadIniFile(UpdateIniPath, "Update", "Num", "0"))     i = i + 1     ChangeLabelPos Me, lblCap, "这是您第" & i & "次升级！"     Sleep 1500          ' 摸拟从网站下载新的更新程序。     ChangeLabelPos Me, lblCap, "正在 摸拟从网站下载新的升级程序 ..."     Sleep 1000     On Error Resume Next     Kill tmpFile     ' 此处可以修改为将临时文件放在临时文件夹内     SaveFileFromRes 101, "CUSTOM", tmpFile     Sleep 1000     On Error GoTo 0          ' 检查主程序是否开启，若开启则关闭旧程序     MainState = CBool(CInt(ReadIniFile(UpdateIniPath, "Main", "Active", "0")))     If MainState Then       ' 关闭旧程序       ChangeLabelPos Me, lblCap, "正在关闭旧程序 ... "       Sleep 300              ' 这里强行关闭旧程序       ' 你也可以发送消息，让旧程序自己关闭       Do While -1          DoEvents          If CloseValidForm(NewExeFile) Then             Exit Do          End If       Loop       Sleep 200     End If          ' 删除旧程序     On Error Resume Next     ChangeLabelPos Me, lblCap, "正在删除旧程序 ... "     Sleep 1000     Kill OldExeFile     Sleep 1000               ' 生成新主程序名称'     NewExeFile = CStr(ReadIniFile(UpdateIniPath, "Main", "Name", "主程序"))     j = Right(NewExeFile, 1)     If IsNumeric(j) Then        j = i        NewExeFile = Left(NewExeFile, Len(NewExeFile) - 1)     Else        j = 1     End If     ' 记录主程序的名字     NewExeFile = NewExeFile & j     WritePrivateProfileString "Main", "Name", NewExeFile, UpdateIniPath     NewExeFile = App.Path & "\" & NewExeFile & ".exe"               ' 拷贝新程序     ChangeLabelPos Me, lblCap, "正在更新程序 ... "     Sleep 1000     FileCopy tmpFile, NewExeFile     Sleep 1000     ' 删除临时程序     Kill tmpFile          ' 记录更新次数     WritePrivateProfileString "Update", "Num", CStr(i), UpdateIniPath          ' 检查旧程序的状态     If MainState Then        ChangeLabelPos Me, lblCap, "正在启动更新后的主程序 ... "        Sleep 1000        Shell NewExeFile, vbNormalNoFocus     End If          ' 关闭更新程序     Command1.Visible = True     ChangeLabelPos Me, lblCap, "更新完成，请等待 3 秒后将自动关闭更新程序 ..."     Sleep 3000     lblCap.Refresh          Unload Me  End IfEnd Sub Private Sub Form_Load()    If App.PrevInstance Then End    UpdateIniPath = App.Path & "\Update.ini"  State = TrueEnd Sub  完成了三个工程的代码拷贝，在代码的必要之处我都进行了详细注释，这里我就不再介绍代码了，现在进行最后一步，模拟从网站下载升级后的程序。a.        打开projMain.vbp，编译该工程，并且命名为“主程序.exe”；b.        打开projNewMain.vbp，编译该工程，并且命名为“projNewMain.exe”；c.        打开projUpdate.vbp，打开工具栏上的“vb资源编辑器”（若没找到，读者需要点击菜单“外接程序|外接程序管理器”，在打开的对话框中选择“vb6资源编辑器”，在加载行为中选择“加载/卸载”复选框），在资源编辑器中选择“添加自定义资源 …”，在打开的对话框中定位到Update文件夹，选择projNewMain.exe文件，保存该资源文件，最后编译该工程并且命名为“Update.exe”。d.        将可执行文件“主程序.exe”、“Update.exe”拷贝到同一个文件夹中，运行任一个程序，相信读者会看到效果。 以上代码比较简单，仅供读者分析思路用。在实际工程中的代码编写时也根本没必要把projNewMain.exe放在资源文件中，读者只需将它放在服务器的某个位置，然后在projUpdate.vbp中的相应处写下载代码即可。这里说的（在projUpdate.vbp中的相应处写下载代码即可）怎么写这个代码啊？Ok，文章至此编写完成，希望对各位读者能有所帮助。