求救，11行代码从vb改成vb.net

[LogoGEN]

是ftp上传文件代码，本人菜鸟实在不懂，请指教（希望改完后能编译通过）：
Private Sub 上传_Click()
Inet1.URL = IP.Text ' "ftp://61.129.102.38/"
Inet1.Protocol = 2
Inet1.UserName = USER.Text ' "username"
Inet1.Password = ID.Text ' "password"
Inet1.Execute , "PUT " & "c:11.jpg" & " pathname\22.jpg"
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "上传完毕!", vbInformation, "提示"
End Sub

[LogoGEN]

DoEvents是什么意思？continue吗？

[LogoGEN]

Inet1是 Internet Transfer Control

[兔子-顾问]

DoEvents 是类似多线程的操作吧。执行程序的时候，允许用户进行别的操作对软件。

[LogoGEN]

我改成以下的样子，可以运行，但是上传不成功：
lngINet.OpenURL("*.*.0.44")
lngINet.Protocol = 2
lngINet.UserName = "anonymous"
lngINet.Password = "[e-mail]"
lngINet.Execute("", "send & c:\setup.exe & vbcrlf")
Do While lngINet.StillExecuting
Loop
MsgBox("发送完毕!", vbInformation, "提示")

[s911guo]

Inet1这个控件原来用的就有问题，幸亏有doevents，最好用这个控件的事件来判断是否发送完成

[LogoGEN]

s911guo(蝈蝈小虾米),谢谢你的回复，请问能不能给出相关代码呢？
因为时间实在很急，麻烦您了``

[Clayborne]

Application.DoEvents();

[LogoGEN]

我把Application.DoEvents()加在
Do While lngINet.StillExecuting
Loop
中间，
但是结果还是没上传到，程序运行显示无错误。

[yuchun0607]

Private Sub 上传_Click()
Inet1.URL = IP.Text ' "ftp://61.129.102.38/"
Inet1.Protocol = 2
Inet1.UserName = USER.Text ' "username"
Inet1.Password = ID.Text ' "password"
Inet1.Execute , "PUT " & "c:11.jpg" & " pathname\22.jpg"
Do While Inet1.StillExecuting
application.DoEvents '就这里改一下就好了，哈哈
Loop
MsgBox "上传完毕!", vbInformation, "提示"
End Sub

[LogoGEN]

yuchun0607(yuchun0607)，谢谢回复。
application.DoEvents加上后编辑器会自动加上().应该不影响吧，但是情况还是一样。
还有一个问题：
INTT控件的stillexcuting属性为FALSE，而且不可修改，这是不是有点问题？

[LogoGEN]

up

[LogoGEN]

我用 yuchun0607(yuchun0607)的代码，服务器显示连接已经建立，但是文件无法传送成功。

[jialiang]

Inet1的定义呢？

[DeadWolf]

如果Inet1是一个控件的话
几乎不用改

[haoztao]

.net中兼容vb啊，添加个控件就可以啦