易语言转VB代码,请高手转一下

.版本 2
.支持库 EThread.程序集 窗口程序集1
.程序集变量 线程句柄, 整数型
.程序集变量 文件下载地址, 文本型
.程序集变量 文件保存地址, 文本型
.程序集变量 水晶进度条, 水晶进度条, , "1".子程序 __启动窗口_创建完毕文件下载地址 ＝ “http://www.13516767586.com/update/浙江国税VPDN专用拨号软件.exe”
文件保存地址 ＝ 取运行目录 () ＋ “/浙江国税VPDN专用拨号软件.exe”
水晶进度条 [1].从句柄创建 (进度条1.取窗口句柄 ())
水晶进度条 [1].置颜色风格 (#水晶颜色_绿色)
水晶进度条 [1].置标题风格 (#进度条标题_显示标题加百分比, “程序升级中，请稍等，目前已完成： ”)
启动线程 (&执行下载程序, , 线程句柄).子程序 执行下载程序.如果 (文件是否存在 (文件保存地址 ＋ “.tmp”) 且 信息框 (“升级文件已存在，是否断点续传？”, #询问图标 ＋ #是否钮, “升级程序小提示：”) ＝ #是钮)
    HTTP带进度条下载 (文件下载地址, 文件保存地址 ＋ “.tmp”, &状态显示, 取文件尺寸 (文件保存地址))
.否则
    HTTP带进度条下载 (文件下载地址, 文件保存地址 ＋ “.tmp”, &状态显示, )
.如果结束
移动文件 (文件保存地址 ＋ “.tmp”, 文件保存地址)
.如果 (文件是否存在 (文件保存地址))
    运行 (文件保存地址, 假, )
    销毁 ()
.否则.如果结束
.子程序 状态显示
.参数 总大小, 整数型
.参数 目前下载, 整数型
.参数 目前时间, 整数型
.参数 实际下载, 整数型
.局部变量 下载速度, 双精度小数型
.局部变量 剩余时间, 双精度小数型' 标签2.标题 ＝ “正在下载:” ＋ 取文本右边 (文件下载地址, 取文本长度 (文件下载地址) － 倒找文本 (文件下载地址, “/”, , 假))
标签2.标题 ＝ “  文件大小:” ＋ 到文本 (四舍五入 (总大小 ÷ 1024, 2)) ＋ “KB  ”
标签2.标题 ＝ 标签2.标题 ＋ “已下载:” ＋ 到文本 (四舍五入 (目前下载 ÷ 1024, 2)) ＋ “KB  ”
进度条1.位置 ＝ 目前下载 × 10000 ÷ 总大小.子程序 __启动窗口_将被销毁强制结束线程 (线程句柄)
' 删除文件 (取运行目录 () ＋ “/AutoUpdate.exe”)